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How many times 
must your 
TRS-80 stop 
just to talk 
to your printer? 



Your computer talks faster than 
your printer can listen. Expensive 
time is lost forever. SPOOL/ 64, a 
64k byte hardware print spooler, 
keeps your computer processing 
while your printer is printing. No 
more waiting. No more wasting. 

SPOOL/64 buffers your print 
output and transmits the 
information to your printer at the 
printer's specific print rate. It 
buffers up to 13 minutes of print 
output (at 80 characters per 
second). 

SPOOL/64 plugs directly into 
both your printer and 



routines. And S POOL/64, used 
with your software spooler, can 
give you the highest performance 

spooling available. 






computer, accepts input from 
parallel Centronics cables (serial 
RS-232 available soon), and its 
user programming feature allows 
you to download your own 
programs so SPOOL/64 can 
handle sophisticated print 



SPOOL/64 utilizes 64k of dvnamic RAM, 2 
Z-80 CPU, a 27 16 ROM and a cooy of the 
source program for the object code in the 
ROM is included. 

SPOOL/64, priced at just $399, 
is the most cost/effective print 
spooler on the market. Evaluate 
performance. Evaluate price. 
Then let SPOOL/64 get your 
computer back talking to you. 
Call or write Apparal today for a 
free brochure. Dealer inquiries 
invited. 
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• Easy to Learn - Like lightning you will be up an 
processor. Our manual says you can be an expert in < 

The manual's i 28 pages are packed with figures, it 

• Easy to Use - With the ELECTRIC PENCIL ycLi 
menus and simple two keystroke commands keepsfy( 
PENCIL is so easy to use your secretary will WANTtou: 
the editor of Creative Computing says, "ELECTRIC PE 



jing with a comprehensive and sophisticated word 
our/bur users tell us it takes less than 30 minutes. 



is and examples for the beginner and"old pro". 

>cess words, not commands. ELECTRIC PENCIL'S 

r mind on your work, NOT on your manual. ELECTRIC 

j&A. so sophisticated you 1 li be glad she did. David Ahl, 

t«kjl 2.0 is the most user friendly word processing 



package available 

• Features- ELECTRIC PENCIL hasa36k+ text buffer (48 kl*«k system), supports disk, tape and Stringy 

Floppy files(disk version)* and has every majorfeature you want inV word processor. It is"bullet proof"- Data 
recovery is a built-in feature. The exclusive DICT-A- MATIC + featuretfves your off ice the flexibility of dictation- 
word processing without fancy equipment. Your dictation play back^Spnt rolled from the computer keyboard. 

• Flexible It is the only word processing system that is designed Ike an operating system. You can add 

new programs and features to ELECTRIC PENCIL, such as RED and B\UE PENCIL dictionary/correction- 

"" " "' Dress one of the 



im. 



control key combinations and new additions to your system are instantly sh^ai I able. Add automatic proofing, 
spelling correction, dynamic print formatting, proportional printing, communications, graphics and typesetting 
and many other add-on features when you need them. f ^ 

• Versatile - ELECTRIC PENCIL runs on TRS-80 model I and model Ml computers under all versions of 
TRSDOS, and NEWDOS without modification or patching (Patches required for otler operating systems). It 
also supports parallel and serial printers as well as single and double density disl systems. 

ELECTRIC PENCIL is the choice of thousands- make it yours for only $89.9^dislLjfcrsion) or $79.95 (tape 
and Stringy Floppy versions). Manual o 




ELECTRIC PENCIL is available at computer stores, selected B. Dalto 
Booksellers and selected independent book dealers. If your dealer is or* d 
stock, order direct (specify disk tape or Stringy Floppy versjBn). Incl 
S4.00 for shipping and handling. Foreign residents add $1 1.00 plus purcfese 
price, in U.S. funds. 

*Tape and Stringy Floppy versions support tape and stringy files only 

fjgfW* £WV tra^mar k eXATHON Corp TRsaQ TRS0OS tradeffia rk TANDY Corp 

NEWDOS ffaddiwk Af'PARAT. Inc. 

ft 36 





1953 West 
11th Street 
Upland, CA 
91786 ^714) 
946-5805 
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Your Model III is a fine computer. 

So why settle for less than 
a fine disk storage system? 

A fast, reliable disk storage system — no other 
device is so vital to the satisfactory performance of 
your computer. At Percom we build quality, high- 
performance disk drive systems. From gold-plated 
connector contacts to goldcad metal chassis 
structures. From proven design through 100% 
reliability testing. Percom disk systems are the 
standard by which others are judged — the industry s 
standard," in a sense. And since Percom is the 
rgest independent manufacturer of disk systems 
for microcomputers, you get Percom quality 
at very competitive prices Add-on drives for 
TRS-80* computers start as low as S399. 
Complete first-drive systems for the Model 111 
start at only $599. Put a quality Percom mini-disk 
storage system in your Model III. And save. 



#1 For Your Model 

Percom TFD drives for your TRS-80* Model III computer are available in 
40- and 80-track versions with single or dual heads. Single-head 40-track 
drives store 180 Kbytes; dual-head 40-track drives store 360 Kbytes. 
Eighty-track drives store slightly over twice these amounts. Of course 
these are formatted capacities. The Percom Model III controller handles 
up to four drives so its possible to access almost three million bytes of 
on-line program and data files. You get Percom's OS-80 111 Basic 
language DOS with each first-drive system, and your first drive may be 
either internal (add-in) or external (add-on). Percom TFD drives work with 
Model III TRSDOS and other Model III disk-operating systems. First-drive 
systems are pre-assembled. Installation is accomplished with simple tools 

#1 For Your Model I, Too 

Percom TFD add-on drives for the TRS-80" Model I computer are 
available with the same features and the same quality control measures 
as TFD Model Ml drives. As for Model Hi drives, all Percom Model I drives 
are double-density rated. Install Percom's popular DOUBLER II in your 
Model I Expansion Interlace and upgrade your Model I to provide the 
same storage capacity as the Model III. 

Watch for Announcement of Percom's Low-Cost 
Hard Disk System for the Model III! 




To order, or for the name of your authorized Percom retailer, 
call toll free 1-800-527-1222. 



PERCOM 



PERCOM DATA COMPANY, INC. 

1 1PPO PagemiU Road - Dallas. Texas 75243 

(?14) 340-7081 



The Drive People 

You get more out of 
Percom disk systems 

Expect it! 



PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE 

*TRS-80 is a trademark oi Tandy Radio Shack Corporation which has no relationship to 

Percom Data Company, Inc 

PERCOM, DOUBLER II and OS-80 III are trademarks of Percom Data Company. Inc 



r 

i 
i 

i 

i 

i 

i 

v. 



Yes... Id like to know more about 
the best for my TRS-80 computer 
Send me free literature about 
quality Percom products 

MODEL I MODEL III 

Send to 

PERCOM DATA COMPANY INC Dept 8-U 

11220 Pagemill Road Dallas TX 75243 
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STATE 



PHONF NUMBER 




Expense 




EXPENSIVE - The LNW 
System Expansion II and built-in Vl*/$<-£ 
comes with a full 32K of 200ns RAM &-■•-" 
RS232c 20 MA current loop serial interface. 
That's for starters. Next, consider our heavy gauge 
steel case, power indicator lamp, gold-plated 
connectors, FR-2 glass epoxy circuit board with 
solder mask and silk screen legends. Then there is 
the parallel printer port, screen printer port, real 
time clock, and extra heavy duty onboard power 
supply with over current protection, over voltage 
protection and thermal shutdown. If that's not 
enough then there is the floppy disk controller, 
guaranteed operation at a 4MHz CPU speed and 
our 6 month warranty. Every one of these features 
is STANDARD. This is true system expansion. 
You get every 'expensive' feature without 
spending more. 

CHEAP - Our price is $399.95. Any way you 
compare, features or price, LN W's System 
Expansion II is the clear winner. The LNW 
System has been field tested for over two years 
with thousands of users. It works with any DOS, is 
100 °v TRS-80 Model I compatible and it works 
'right out of the box'. If there is any doubt in your 
mind as to whether you should buy ours or the 
'other guys', just ask an LNW owner! 

WE ARE #2 - Number one in price, features, 
reliability, performance and delivery. LNW is 
committed to 'expensive' features and quality at 
reasonable prices. LNW is committed to support, 
thorough documentation, and reliability. 

LNW Research Corp. 

2620 WALNUT Tustin, CA. 92680 L 

(714) 641-8850 (714) 544-5744 



made us the number one 
manufacturer ■:':■ of system expansion units 
and accessories for the Model I computer. 

EXPANSION OPTION - 8-inch drive capability 
is as easy as plugging in the LNDoubler 5/8 
option*. Now you can have any combination of 
single- or double-density, single- or double-sided, 
8"* and/or 5" disks on-line! 8-inch disk storage 
increased to 591,360 bytes - 77-track single-sided, 
double-density or 1,182,720 bytes - 77-track 
double-density, double-sided. 

The LNDoubler's unique 5/8 switch allows you 
to boot from 5- or 8-inch system disks and it's 
accessible from outside the interface. The $219.95 
LNDoubler 5/8 comes with a double-density disk 
operating system (DOS+ 3.3.9), complete with 
BASIC and utility programs... ready to run your 
software. 

Each of your present 40-track, single-sided 5-inch 
drives will store up to 184,320 bytes (formatted 
storage) - that's an 80 'V increase in storage 
capacity for only half the cost of just one disk 
drive. With three 8-inch double-density, 
double-sided drives your Model I will have 3.75 
Megabytes of online storage - that's more storage 
than a Model II or Model III! 



#3 




*H" drive operation requires special cable, 8" 
double-density requires H.55MHz CPU speed-up 
modification or LNW-80 4MHz computer. 
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High resolution graphics 14 

Model I/III with Epson MX-80 and Graftrax-80 Kenneth R. Smith 

Accurately depict any equation. Take advantage of bit addressing these 
special peripherals. 



Drafting on the TRS-80 

Model I/III, 16K 

Routines to draw arcs, circles and lines. 
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Darrel L. Bartelheimer 



Two graphs for Model 11/16 30 

Model 11/16 Mike Schmidt 

Histograms and regression lines for your printer or video. 
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OUR COVER for this graphing and 
graphics issue features a bar graph generated 
on the TRS-80 Multi-Pen Plotter 26-1191. 
Photo courtesy of Radio Shack. 
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Color Computer. 
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Technology accounting system. 
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printer and video output with a minimum of distortion. 
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Model HI 

Patch the Model T renumber program to run on Model III. 
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Color Computer with Extended Color BASIC Lynn Davis 

Switch PMODEs for different effects on the Color Computer video display. 
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It is strange to be devoting an 
issue to one of the weakest areas of 
the TRS-80 line of computers. 
Graphics are lumpy. What we call a 
line makes other computer owners 
snicker. Low resolution is a fact that 
we have learned to tolerate (for the 
moment). 

I believe that all of this has taught 
us something important. Visual 
representation is a key to 
understanding. Even the crudest of 
drawings helps to overcome the fog 
of words. Histograms, pie charts, 
bar graphs, arcs and segments serve 
us well. If the fact you are trying to 
convey is important, it will stand 
out like a beacon, even in low 
resolution black and white. 

Over the years, I have seen 
programs progress from computa- 
tion of simple averages to complete 
function graphers. Graphics and 
games go hand-in-hand. We have 
become so ho-hum in our search for 
new and better programs, that if 
they lack graphics (and even 
sound), they do not get a second 
look. In many ways, this issue is a 
look back to where it all began. The 
video graphs are as imprecise as 
ever, but they still serve a purpose. 

In reviewing the programs in this 
issue, I was struck by a relationship 
that is too easily overlooked. The 
programmer is an artist. The 
painter has his oils and canvas, we 
our SETs and CHR$s. Both of us are 
attempting to depict an idea (data) 
in visual form. 

It is true that while early Model I 
attempts look more like cave 
drawings, the pictures are 
improving. Video has become an 
important link to the user. 



By Cameron C. Brown 



Consumers demand good format, 
clean displays, action and pictures. 
Programs that just fill the screen 
with text are becoming rare. 

There must be a natural desire to 
include graphics — just look at the 
changes that have occurred in the 
past few years. We can purchase 
plotters that are multi-colored and 
dot matrix printers that give output 
as well as any pointillist. The 
quality of Color Computer display is 
just now being investigated. Pocket 
Computers print figures that used to 
be sent to an art department for 
production (at least that is what the 
Radio Shack ads depict). The Model 
II graphics codes are quite unique 
and varied, and they are almost 
unused in any of the software I have 
seen. Almost every printer can now 
faithfully reproduce video graphics 
and many have a built-in set of 
characters that are just waiting to 
be used. 

In over 15 years of teaching and 
studying mathematics, it became 
very clear that the visual 
representation of a problem was 
fundamental to its understanding 
and solution. Talking about 
numbers and functions can be a 
beginning, but an accurate graph 
tells so much more. It is true that a 
picture is worth a thousand words. I 
know what Sin(X) ■*■ X does, but 
there is still a joy in seeing it 
accurately displayed. 

Radio Shack has just announced 
a graphics addition for my Model II. 
I am tempted to spend $500 so I can 
draw pretty pictures. Graphics are 
not a requirement for any of the 
work I do, but I will probably buy it. 
Why? Because I am an artist too. ■ 





ing tools 
-80T Now on disk. 



Better results. Microsoft's Level III BASIC and Editor/ 
Assembler-Plus are programming tools that help you write 
complex programs in less time, with less effort and util- 
izing less memory. Better programs. No matter what your 
programming skill. And for the first time these tools are 
available on disk. 

Editor/ Assembler-Plus. A powerful editing, assembly and 
debugging tool with many sophisticated features that make 
writing TRS-80 assembly language programs easier, faster 
and more efficient. 

• Full disk capabilities. 

9 Assembly directly into memory. No need to save object 
code then reload for execution. 

• Macro capability that allows you to define macros for 
commonly used sequences of instructions. 

Conditional assembly that allows you to generate more 
than one version of a program. 

• Eight breakpoints at a time for program debugging. 

• The INCLUDE statement that allows you to call additional 
disk files for assembly. 

• Other features include extensive operators, automatic 
origin, symbol table printout, quash command, hex, deci- 
mal and octal constants, single step-through instructions 
in memory, five type-out modes, four type-in radices, plus 
extensive edit commands. 

A more powerful BASIC. With Level III BASIC, you get 
power to perform tasks in BASIC that used to require 
assembly language. Plus, new ease-of-use features for 
your TRS-80. 

• Advanced graphics. Develop charts, graphs, even anima- 
tion in Level III BASIC. Draw a line, an outline box or 



a solid box by specifying just two points. Then save and 
recall it with BASIC commands. 
'• MENU. One command that allows you to construct an 
entire menu. 

• CHAIN and COMMON commands allow you to call 
another program and pass variables to it. 

• Powerful editing commands such as COPY/TRANSFER, 
FIND and CHANGE. 

° DUMP command that makes debugging" easier. 

• Time-limit response. New INPUT # LEN and LINE INPUT 
# LEN commands allow you to set a time limit on response. 

• RS-232 output from BASIC. With a single command. 

• More. Level III gives you automatic line numbering, 26 
user-definable single stroke instructions, and more. 

Disk or cassette. Disk versions of Level III and Editor/ 
Assembler-Plus are brand new. Cassette versions are also 
available with many of the same capabilities. 
Talk to your Microsoft™ dealer. Ask for a demonstration 
of two of the most powerful tools you can get for your 
TRS-80: Level III BASIC and Editor/ Assembler-Plus. On 
disk or cassette. From Microsoft. 

TRS-80 is a trademark of Radio Shack, a division of Tandy Corporation. 

Microsoft is a trademark of Microsoft, Inc. 

Microsoft Consumer Products is a division of Microsoft, Inc. 




400 108th Ave. N.E., Bellevue, WA 98004. (206) 454-1315 
10700 Northrup Way, Bellevue, WA 98004, (206) 828-8080 
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Letters 



A friend who has had his Color 
Computer for only a couple of weeks 
called one night just before panic set 
in. He was unable to load any of his 
taped programs. I knew he was 
following the correct procedure as 
he had been using the tapes 
successfully since he had bought his 
computer. 

The usual suggestions such as 
cleaning and demagnetizing the 
tape head were no help. Thetapes he 
was using were purchased 
programs, so I asked him to type a 
short program, then save it on a 
new, blank tape. He did this with no 
improvement. By now I was out of 
suggestions and asked him to bring 
his equipment to my house. Not that 
I was going to open the case, since 
he still had warranty time left, but 
maybe there was tape recorder or 
cable trouble. We could change these 
two items and see if the difficulty 
cleared up. 

We set his computer up on a card 
table and I observed as he began to 
load a tape he had brought. Eureka! 
The program loaded like a champ. 
Other attempts with more tapes 
were loaded without incident. A 
short program typed and saved 
worked as it should. 

It was apparent that the problem 
was either at his house or a loose 
connection had vibrated enough 
during the twenty-mile trip from 
house-to-house. After a cup of coffee, 
my friend left for home, anxious to 
try loading the tape at his location. 
We had agreed that Pat would call 
only if there was further trouble 
after setting up at his house. Later, 
when the phone began to ring, I 
didn't have to answer to know who 
was at the other end. The same old 
trouble occurred when he tried to 
load a tape. This time, 1 suggested 
that he try a wall outlet in a room 
where an outlet was on a different 
circuit breaker. It occurred to me 
that possibly there was a voltage 
problem. I waited on-line while Pat 
hooked up the computer in another 
room. Even before Pat left the other 
room, I knew he had been 
successful, for I heard a loud "ha" 
before he was even near the phone. 
No! It wasn't the socket. The 
heavy wrought iron table holding 
Pat's computer was the culprit. 
Evidently the electrons in the tape 

6 80-U.S. Journal 



had been pulled out of line by the 
massive metal table. Even in the 
second room the loading problem 
recurred if the computer was placed 
on it. The last I heard was Pat 
mumbling something about seeing 
a cabinetmaker in the morning. 

Leigh L. Klotz, SR. 
McComb, MS 



I have just finished digesting the 
first six issues of 1982 of The 
Journal. I want to say that I enjoyed 
it very much and I am sorry that I 
did not subscribe sooner. I feel that I 
may have missed quite a lot. 
Anyhow, I certainly will be looking 
forward to future issues. 

I like the format, the editorials 
and the short utility programs. I 
know you need revenues to exist but 
I really enjoy not having to wade 
through pages of advertising to get 
to the interesting part. 

I don't have (take) the time I 
would like, nor have the brains for 
my TRS-80, but I do love to play with 
it. The short programs — Tiny 
Typer, to be specific — have a lot of 
educational value. At least for me. I 
tried to modify it to work with 
another program, and I am 
ashamed to tell how much time I did 
spend, when I got hung up in those 
IF.. .THEN, ELSE loops. I went back 
to my books and I am still 
scratching my head and mumbling 
to myself. 

Please keep up the good work and 
humor us slow learners. 

Wm. Barker Thornton 
Lexington, KY 

We like to think we humor 
everyone. — Ed. 



I am writing to address a serious 
fault I see in the philosophy of the 
'UN-NUMBER' program in your 
April 82 issue. The article admits 
that this program will not prevent 
piracy, but merely prevents 
tampering with 'your' program. 
Somehow I fail to see why a 
legitimate user of 'your' program 
shouldn't be free to revamp 'it,as 
long as they give you credit for the 
program and also note that they 



have modified it so that you won't be 
blamed for errors that might have 
crept in. 

I believe that Un-number will only 
prevent tampering by a total novice. 
And that is just the person who will 
benefit most from 'revamping' other 
peoples' programs. The best ways to 
grow from a novice that has just 
finished the manual are: 1) to get the 
help of a more experienced 
programmer, and 2) to look at, tear 
apart, and modify the program of a 
more experienced programmer. 

I feel that there are basically two 
types of pirates, neither of which I 
condone. #1 is just out to get any 
program he can get his hands on, 
and may not know enough to 
tamper anyway, while #2 will file off 
the serial numbers despite this 
program. 

I have purchased three monitors 
with re-number functions. All of 
them can renumber an "Un- 
numbered' program into exactly the 
same program they would have 
created had it not been un-numbered 
first. 

Computers are becoming so 
important that we should do 
everything we can to encourage the 
newcomer, not throw monkey- 
wrenches at him that won't even 
slow down the more experienced 
programmer, pirate or otherwise. 

This is a well written program, 
and the techniques shown in the Un- 
number program are just the sort of 
thing that can open up new vistas 
for a newcomer. My only argument 
is that I believe the philosophy 
behind it was not thought out 
thoroughly. 

Although I paid a good sum of 
money to take 16 weeks of BASIC 
programming courses in 1977, I 
would estimate that less than 25% of 
my present knowledge is from those 
courses. About 25% is from other 
programmers I have worked with 
directly, and the rest is from tearing 
into programs that do something I 
want to do, and finding out how it 
was done. 

I have learned many valuable 
lessons from the programs in 80- 
U.S., 80-Micro, Softside, and 
programs which I have purchased. 

For those of you who realize, and I 
still do, that you don't know it all, I 
suggest that, on programs that you 
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PROSOPT 

NEWSCRIPT 7.0 

NEWSCRIPT 7.0 is a high-quality word processing system for the TRS-80 Model I and ill. It's based 
on the editing and formatting programs developed by IBM for use on mainframe time-sharing sys- 
tems, and takes advantage of the easy-to-use capabilities of the Mod I and III. NEWSCRIPT 7.0 is 
intended for use by people with a wide variety of word processing requirements ranging from sim- 
ple letters and form letters ot contracts, large books and dissertations. Although fairly easy to use, 
its many features ensure that, as your word processing expertise increases, NEWSCRIPT 7.0 will 
continue to meet your requirements. 

Some of the outstanding features of NEWSCRIPT 7.0 are: 



• Form letters with merging of names and 
addresses 

• Comprehensive manual with hundreds of 
examples 

• Centering, top/bottom titles, indents, pagination 

• Underlining, boldface, double-width, italics 

• Sub-scripts, super-scripts, proportional pitch 

• Generates Table of Contents, sorted Index 
Allows block graphics, special symbols 



• Search or replace globally or within a range 

• Block move, copy, delete, insert from other file 

• AUTOSAVE, WHOOPS, DIRECTORY, KILLS, 
REPEAT 

• Based on IBM's "EDGAR" and "SCRIPT" systems 

• Supplied ready-to-run on "tiny" DOSPLUS 

• Easily transferred to IMEWDOS, NEWDOS/80, 
LDOS, TRSDOS 
Includes handy Quick Reference Card 



• Available as an OPTION is right-justified true proportional support for Diablo, Spinwriter, Starwriter, and 
Qume (DaisyWheel Option) 

• Another OPTION is the "PENCIL/SCRIPSIT File Converter for upgrading to NEWSCRIPT 7.0 
(Some features work only if your printer has the mechanical capability) 

SYSTEM REQUIREMENTS: 48K TRS-80 with one disk drive. 
Specify Model I or III. 



NEWSCRIPT 7.0 

Cat No. 4113-MI or 4113-MIII reg. $124.95 

* $114.95 

Mailing Labels Option 

Cat No. 4114-MI or 4114-MIII reg. $29.95 

* $27.95 



SPECIAL NEWSCRIPT 7.0/ + Labels 

Cat No. 4115-MI or 4115-MIII reg. $139.95 

* $124.95 
Daisywheel Proportional /Option 

Cat No. 4116-MI or 4116-MIII reg. $49.95 

* $46.95 



TREE SHIPPING WITH ORDER 

HOW TO ORDER 

Write or phone. Pay by check, M/C, 
VISA, or COD (add $1.50 for COD). 
(800)423-5387 (213)886-9200 

Offer expires Sept. 30, 1982. Men- 
tion this ad and we pay shipping 
(UPS ground only). 



DISK 
PROTECTOR CASES 

• Molds 50 diskettes 

• Attractive yet durable 

• Perfect for home or office 

Cat No. 2956 (5% B ) 

* $27.50 



DISKETTE SALE 

Take your choice between two top-quality 
brands of 5Va" soft-sector, single-side 
diskettes 

VERBATIM DATALIfE DYSAN 

(#525-01-18158) (#104/1) 

Cat No. 1147 Cat No. 3966 

* $30.00 * $38.95 



•LECTrlONICS 



19511 Business Ctr. Dr. 

Dept. U9 

Northridge, CA 91324 



WHEN IN SOUTHERN CALIFORNIA, VISIT OUR RETAIL STORES 

951 1 Business Center Dr. 2301 Artesia Blvd. 444 S. Indian 

Northridge, CA 91324 Redondo Beach, CA 90277 Palm Springs, CA 92262 
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Letters 



have legitimately acquired, see if 
you can find out how something is 
done that you cannot do. Or, see if 
you can improve on something the 
original author did. Or, you may 
find, that with a few changes, the 
program can do something that it 
wasn't originally intended to do. 

But, when you do revamp it, give 
the original author some or most of 
the credit, depending on how much 
of the final (does anyone ever write a 
final version?) program is theirs, 
and note that you are responsible for 
changes. 

David W. Kukuk 
San Jose, CA 

Today I purchased my first copy 
of your magazine. One of the things 
that caught my eye and led me to 
buying a copy was the article 
"Screen Printing with MX-80." 
Shortly after arriving home from 
one of the local computer stores, I 
keyed the program into my Model I 
(48K, 2-disk) using Radio Shack's 
Editor Assembler. Two problems 
immediately came into sight. First 
of all, I was using the tape version of 
the Editor Assembler, purchased 
before adding the drives. With the 
tape version, I was not able to put in 
the changes to line 00180 to allow 
TRSDOS operation. Using either 



BFB9H or FFB9H in place of 4152H 
produced error codes. So, I had to go 
back to the tape system completely. 
For right now this is not too much of 
a problem, but if I ever get a disk 
version of the Editor Assembler, I 
will make the changes. 

A more serious problem developed 
after getting the system tape in 
operation. Although the letters and 
numbers would print correctly, the 
graphics blocks would not. My MX- 
80 has the Graftrax 80 installed 
(provided at no charge by a local 
supplier with the MX-80 a couple of 
months ago). Taking a cue from the 
next-to-the-last paragraph in the 
article, I deleted line 00390. This, in 
effect, takes away the added 32 to 
the graphics codes. After doing this, 
the program works on a great 
number of BASIC programs. Some 
of the game type of programs, even 
though in BASIC, will not work. 
But, this is really not a problem. 
However, the graphics are printed 
correctly. 

Finally, for someone who is not 
really into machine language, a hint 
at using the program: Load the 
Screen Print program first using 
SYSTEM. After the second *? 
appears, just hit ENTER. A SN 
ERROR will appear, but everything 
works okay when a BASIC program 
is entered or run (unless it has 
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moving graphics as do some of the 
games). 

Glen E. Zook 
Richardson, TX 



Truman Krumholz's article 
"Extra RAM" in your March issue, 
is a good example of how to use the 
2K bytes of memory that Radio 
Shack so graciously left free for 
"further expansion." I have used a 
similar device for over two years 
now for both RAM and EPROM 
(switch selectable), without so much 
as a single error. My version of a 
board using 2716 EPROMs (as well 
as a board to program them) was 
recently published in Volume 4 of 
the Encyclopedia for the TRS-80 
from Wayne Green, Inc., for anyone 
who might be interested. 

Subsequently, I have changed the 
memory board circuit slightly to 
reduce the chip count by one, and 
thought that your readers might be 
interested in an approach 
somewhat different to that of Mr. 
Krumholz's (see Figure 1). This 
particular board has the advantage 
of being easier to build, using a total 
of three chips instead of 12; possibly 
being cheaper (I paid $10 for all 
three chips); and using all 2016 
bytes that are available. 

The circuit was wire wrapped 
using the same type of board Mr. 
Krumholz specified in his article. 
The only big difference is that I did 
not buffer any address or data lines 
and did not use pull-up resistors. 
However, I did keep the 
interconnecting cable short, about 
six inches. As I mentioned, I have 
not had any errors thus far (knock 
on wood)! 

The combination of the 74LS30 
and 74LS138 decodes all addresses 
from 3000H to 37DFH, which is all 
that is available for use anyway. 
The RAM is one of the new CMOS 
2Kx8 static devices, the HM6116LP 
(200ns) from Hitachi. 

Since this is a letter and not a "full 
description article," I will be more 
than happy to answer anyone's 
questions about the circuit if they 
will include an SASE for the reply. 

Steven A. Larson 

726 Somerset Way 

Augusta, GA 30909 
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MASTER 



• EXPERTS 

• FREE 

. DEALER 

• GERMAN 



Assembly/Machine language fast. Save months 
over other methods! Ideal for beginners. Two 
books plus disk/tape. 

The most powerful monitor/debugger ever written 
for Mod I/Mod III computers. 

Detailed information package with coupon, or 

See Your Dealer for demonstration. 

Inquiries invited. Thousands of obsolete monitors 
can be easily replaced with this product. 

Language edition available from: 

Hanspeter Schmid 

Lenaustr 2 

6906 Leimen / W. Germany 



the software 




I THE SOFTWARE PLANTATION, INC. — DEPT. 8A 

I P. O. BOX 44623 ® TACOMA, WA 98444 

I Please RUSH information about 

I BUGOUT/PRO to: 



I 
THE SOFTWARE PLANTATION, INC. j 



Name 



P.O. BOX 44623 • TACOMA, WA 98444 
(206)531-1506 



Address 



City 



State. 



Zip 
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Items at random 



This issue marks the beginning of 
our fifth year. I just looked back at 
Volume I, Number 1. It is hard to 
believe that a 16-page, all upper 
case, dot matrix-printed magazine 
could evolve to this— but it did. 
There is still a long way to go, and 
we are constantly taking steps 
toward a better publication. 

Someone asked recently what the 
major factor in our continued 
success was. I thought for awhile, 
and finally came up with just one 
word— commitment. I think com- 
mitment and dedication to the task 
are our greatest assets. We will do 
our best to keep it that way. 

Naturally, our thanks go to our 
readers and supporters, without 
whom we would not exist. 

Contest Winner 

Our "name the book division" 
contest winner has finally been se- 
lected. It took time and thought — we 
looked at many cute, funny and 
interesting entries. The winning 
entry (there was only one like it) was 
80-N.W. Books. It was submitted by 
Greg Crouch, of Mishawaka, 
Indiana. It was decided to go with 
the obvious, since we already had 
identification in that direction. The 
$100 prize is on its way. Congratu- 
lations, Greg! 

The Case of the Up-arrow 

The up-arrow seems to be a real 
problem with listings published in 
magazines. There are several ways 
that line printers print this symbol. 
It usually doesn't look like an up- 
arrow at all. Typeset listings are not 
much better, since many typesetter 
fonts don't have such an animal. 

In our listings for Models I and 
III, you may find the bracket ( [ ) 
referring to an up-arrow. You might 
even find an actual up-arrow. In our 
Model II listings, you will probably 
10 80-U.S. Journal 



find the caret (shift 6) in place of the 
up-arrow. The caret seems to be 
more standard in computing than 
the arrow or the bracket. Perhaps we 
should dispense with the arrow 
altogether and simply print A*A*A 
for A to the third power. 

Bulletin Board 

If you haven't noticed yet, we 
have changed our Unclassified An- 
nouncements to a Bulletin Board. 
This more accurately describes 
what it is. It's a place to sell one-of-a- 
kind items, ask for information, tell 
others you have information, or 
track some elusive items that no one 
seems to have. Use it freely. We will 
devote up to a page, if necessary, for 
this service. 

Corrections 

It turns out that the article called 
"Vidsave/ASM" in our July, 1982, 
issue has a machine language 
listing that will not assemble unless 
you are using an EDAS 3.5 Edi- 
tor/Assembler. This was not stated 
in the article. We have learned (the 
hard way) that a working machine 
language program may not 
assemble under different editors, 
even though no flaws are present. 
Our apologies to those of you with 
Radio Shack editors who obtained 
39 errors. 

Also in the July issue, the "Toge- 
therness" article has extra lines of 
code in Listing 1. Delete lines 140 
through 280. It seems that the 
program worked too well and 
merged with a program already in 
memory! 

In This Issue 

Our theme this month is graphing 
and graphics for video and printers. 
I even got off my duff long enough to 
write two graphing routines for the 
Model 11/ 16. It isn't really fair to call 



them Model 16 programs, because 
there still is no operating system nor 
BASIC for it, though they do have 
the Editor / Assembler / Linker a- 
vailable. 

Color Computer enthusiasts 
should take note of the Assembler/ 
Disassembler by Richard Tange- 
man on page 38. It's written in 
BASIC and lets you look inside your 
6809E chip. 

Jim Peyton, whom we have seen 
from time to time in these pages, has 
come through with a real belly- 
laugher. Take a look at Whiz Quiz on 
page 46, and see if your southern 
drawl is up to par. 

High resolution graphics on the 
MX-80 is the subject of an article on 
page 14 by Kenneth R. Smith. Dar- 
rel L. Bartelheimer gives us routines 
to draw arcs, circles and lines on 
page 22. Making your disks compa- 
tible with other operating systems is 
covered in the article PDRIVE, by 
Sal Navarro, page 52. 

Ron Goodman tells you how to 
connect your stereo to your compu- 
ter and watch "Simple Joe" sing 
along with the music (page 54). 
Edward M. Roberts presents an 
evaluation of the Votrax voice syn- 
thesizer on page 57. 

How to make your renumber 
program from Model I work on 
Model III is explained on page 94 by 
Jerry W. O'Dell. Lynn Davis has 
three Color Computer video tips on 
switching PMODES for different 
effects on page 96. 

There is more: Pie charts by Jose 
Babilonia (page 78), Files and 
Foibles, Basically BASIC, an eval- 
uation of part of the accounting 
system from Plus Computer Techno- 
logy, and a bunch of reviews. 

It's our fourth anniversary is- 
sue—enjoy it and remember that 
you saw it in 80-U.S. Journal. 

Mike 



A PERFECT FIT! 
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automated electronic mail 

pick-up and delivery! 

$79 

The unique Automated Computer 
Electronic MAIL package allows you to 
send and receive ASCII files from your 
COMPLETELY UNATTENDED TRS-80! 
The new, highly sophisticated Version 
14 works in conjunction with the" 
popular Hayes Stack Smartmodem® 
featuring auto-answer/auto-dial, 
RS232C compatability, 7 LED in- 
dicators, an audio monitor, over 30 
commands, and is programmable in 
any language. Written by Mike 
Moore. 

O 

rapid directory file processor! 
$39 

CO-DIR is a rapid directory file pro- 
cessor which allows you to juggle 
programs listed on a disk directory us- 
ing a pair of blinking cursors and a 
single keystroke. Never type a pro- 
gram name again! Access any direc- 
tory page or program instantly! Ac- 
cepts up to twelve commands and 
has scrolling and word processing 
features. Written by Hunt Brand/ 
Picotrin Technology, Inc. 



a remarkable 
disk directory catalogue! ■ $39 

Wildcat is a remarkable self- 
commenting disk directory cata- 
logue system which allows disk files 
to be easily identified, even with 
obscure or conflicting filespecs. It has 
a file abstract feature which includes 
the first line remark of all types of files. 
Wildcat even permits addition of a 
permanent remark to object code 
files for catalogue use. Written by Don 
Fielding. 

miCRD 

mien 

custom modular 

computer work centers! 

desk - $159 organizer - $79 

Our custom furniture features 
modular engineering for system ar- 
rangements and expansion. Each 
designer-styled desk, shelf top 
organizer, or printer stand comes in 
almond, light oak, walnut, or white 
and presents a unique snap lock 
system for easy assembly. Desk 
measures apprx. 48"W x 24"D x 27"H. 
Organizer measures apprx. 48"W x 
12"D x 21"H. Call for free literature. 
Designed by Max Fisch. 



custom computer tshirts 

Ace Computer Products presents a 
new line of custom t-shirts designed 
for the enthuisiast. Available in a 
variety of colors and styles. Call for 
free catalogue. 

1--800-327-2285 

call toll free! 

Write or call ACE TOLL FREE at 1-800- 
327-2283 for all software, hardware, 
furniture, or computer accessories. 
Florida residents call 305-427-1257. 
Please use the TOLL FREE line for 
orders, prices, or literature requests. 
For technical assistance or service 
use the Florida line. Mastercard or 
Visa accepted. Freight added on all 
orders. Florida residents add sales tax. 
Prices and specifications subject to 
change. Software available for most 
operating systems. Specify model 
and DOS when ordering. 
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FINDING SOLUTIONS 
TO PUZZLING PROBLEMS 



ace computer products of florida, inc. 

1640 n.w. 3rd St., deerfleld beach, florida 33441 voice (305) 4271257 data (305) 427-6300 
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PENETRATOR 

By Philip Mitchell from Beam 

Armed with missiles and bombs, you must fly your 
fighter to the enemy's cache of neutron bombs and 
destroy them. Your mission is in four stages, involving 
rugged terrain, caverns and manmade obstacles— not 
to mention enemy radar, missiles and paratroopers. This 
new departure in arcade gaming allows you to set up 
your own terrain and enemy emplacements, then save 
them for future use. Make your mission as hard or easy 
as you like. Joystick compatible. 

16K Tape or 32K Disk, $24.95 





By Richard Wilkes from Acorn 
Using your Superscript modified Scripsit Word Pro- 
cessor and a compatible printer, you can now 
underline, boldface, insert text during printout, slash 
zeros, set type pitch, subscript and, of course, 
superscript! You can even read your directory and kill 
files without ever leaving Scripsit. 
Superscript comes with drivers for popular serial and 
parallel printers (now including Centronics 737 and 
RS Daisy II), and easy instructions for patching to 
your Scripsit program (does not include Scripsit). 

32K Disk, $49.95 Use Model I Scripsit 

Our Most Popular 
Unbelievable Realtime 3-D Graphics! 



By Bruce Artwick from Sub-Logic 
A graphic tour de force that will truly captivate you. If 
you haven't seen this brilliant program, you haven't 
fully utilized the capabilities of your computer! During 
FLIGHT SIMULATION, you instantly select instru- 
ment flight, radar, or a breathtaking pilot's-eye-view. 
But be sure to strap yourself in— you're liable to get 
dizzy! 

Once you put in some air time learning to fly your 
computer head for enemy territory and try to bomb the 
fuel depot while fighting off five enemy warplanes. 
Good Luck! Please specify Model I or III. 
16K Tape, $25.00 32K Disk, $33.50 
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By Simon Smith from Med Systems ** 
Full scale, 3-dimensional escape game. You're in a 
gigantic labryinth, shown on the screen as if you are 
actually in the corridors. You must find the only door 
out to escape the prowling minotaur who will kill you 
if he can. 

16K Tape, $14.95 32K Disk, $17.95 

"Call about availability of new Med Systems 
software. 



ASYLUM 





From Med Systems ** <K) 

You are sitting alone at 2 AM. Your eyes are bloodshot 

as you peer into your computer's screen and cry, "I 

must be CRAZY!" If this has never happened to you, 

you've never tried ASYLUM. It's Med Systems most 

ambitious 3-D graphics adventure yet! 

ASYLUM places you on a cot in a small (padded?) 

room. Periodically the janitor lobs a hand grenade 

through the window. What you do next could mean 

escape— or disaster. 

1 6K Tape, $1 9.95 32K Disk, $22.95 

Also order DEATHMAZE 5000, Med System's 

challenging 3-D maze game. 

16KTape, $14.95 32K Disk, $19.95 




CATERPILLAR 

®1982 Soft Sector Marketing Inc. 

16K Tape, $15.95 32K Disk, $19.95 



MYSTERIOUS 
ADVEN1URE 

ARROW OF DEATH, 
PART1 

By Brian Howarth from Acorn 
Proper English only! This British import is Acorn Soft- 
ware's first adventure and it meets their reputation for 
high quality. The vocabulary you use in this adventure 
must conform to proper English standards— not the 
barbaric tongue spoken here in the colonies! You and 
Sorcerer Zardra must restore the kingdom from the 
engulfing sense of bitterness and ill feeling that 
forced the ruler to flee the palace. 

16K Tape or 32K Disk, $19.95 
Hint Sheet, $1.00 
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By Westmoreland & Gilman from Adventure 
Underwater adventure is yours as you command a 
nuclear sub armed with deadly missiles and 
torpedoes. Guide it carefully through sea mines and 
underwater mountains; watch out for depth charges 
being fired by overhead ships. . .and don't run out of 
air! Scrolling sea bottom for added excitement. 

1 6K Tape, $1 9.95 32K Disk, $24.95 



By Westmoreland & Gilman from Adventure 
As commander of a lumbering T-36 tank you have the 
firepower to destroy the enemy— if you can find them. 
They may be hiding behind the houses scattered about, 
the bleak terrain and your only view is thru the drivers 
port (your screen). Impressive animation in this arcade 

1 6K Tape, $1 9.95 32K Disk, $24.95 
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From SubLogic 
A complex strategy game with realistic simulation. 
You are in charge of a Kentucky forest district. You 
must save the maximum acreage from fire at the 
lowest cost. Variables include: acres threatened, 
number of fires burning, fire spread rate, weather con- 
ditions. Challenging; fascinating. 

1 6K Tape, $24.95 32K Disk, $29.95 

Please specify Model I or III. 
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By Jyym Pearson from Med Systems** 
Five games in one! You begin in an institution, and 
must successfully negotiate not just the Institute 
itself, but four other dream adventures as well. Ob- 
jects in each dream help solve problems in the next. 
Concentrate, or you may never escape the nightmare 
of the Institute! 



16K Tape, $19.95 



32K Disk, $22.95 



Write Arcade Games in BASIC with . . . 



BASIC COMPILER 

By Southern Systems from Algorix 
Ever wish your programs would run faster? Assembly 
language is one answer. But— even after you spend 
the time needed to learn Z-80 code— It is a long, 
tedious process to write in assembly language, and 
debugging is very difficult. Fortunately, there is 
another way— compiled BASIC. 

In our opinion ACCEL 3 is the best compiler for the 
TRS-80. It's flexible: works with tape or disk, Model I 
or III, and requires as little as 16K of memory. It's fast: 
only a few seconds to compile. It's a memory miser: 
only a 15-35% increase In program size in most cases. 

ACCEL 3 will work under TRSDOS, NEWDOS or 
LDOS, and there are very few programming restric- 
tions. To save ACCEL-compiled programs on tape you 
will need TSAVE (sold separately, $9.95) 



Tape or Disk, $99.95 



Over 1 500 Programs for TRS-80, 



To Order Call Toi-Free 
800-424-2738 

Visit our other stores: 

Seven Corners Center, Falls Church, VA « 

W. Bell Plaza, 6600 Security Blvd., Baltimore, RSD 

Coming Soon to Columbus, Ohio 




ATARI 400/800, APPLE & IBM. 



/TORE 



MAIL ORDERS: Send check or M.O. for total 

purchase price, plus $1.00 postage & handling. 

D.C., MD. & VA.: add sales tax. Charge cards: 

include all embossed information on the card. 

For information CaBB 
2©2-3©3-9797 
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BASSCITBAL 
Dribbte, Dribble 

By JohR ASIen fsom Acorn 
You have to be fast So fceep up with tne action as you 
try to outscore your opponent in five- minutes of one-on- 
one basketball againsi ifriendor) ■ rTRS-SOMode 
or III. 

16K Taps, JM^T" 
Now thru Sept 10 you pay just $9.98 

BRIDGE PACT*! 

By George Duisman from P :rsona! .-' ftware 
If youVe a rjovice or bridge experts this program will 
help you practice «na improve your p!a> ■-.- ; and he 
"cfurrtmy" play against the computers skilled defen- 
sive hands- And, you can replay the I and 1 .■ try >.. ' 
fsrerst strategies, replay the declarer hands against 
new defensive hands, and rotate tha hands. Hands 
' may be saved for future uas, 

16KTape,Si&@T 

Now thru Sept 10 you pay just $1 1 38 



Sy Hogue & Konyu from Big Five 

While fighting off the aSisn convoys— each more 

skillful than the last — yoe must keep track of your 

rocket fuel or risk explosion, 

16K Tape,S*fe95- 32K Disk, $A +35 

Now thru Sept. 1G; Tape $8,95; Disk $9.95 



DUILCCNII 




By La© Chrtsiopfterson from Acorn 
Teach your "animated android'' h ■.■-'. .- el : ". as sr 
sword! Leo Christopherson, author of "Android NIM." 
"Dancing Dsrnors," "Voyage to 'alkyrie and sther 
animations, has developed a new type of animation 
and high quality sound Irs this work. 
Stalling out as a tawfy clown, you teach year 'drefd to : 
use a iaser sword 0; coi t olll lg : :." moven *. '.■■ - ad 
vanes, attack, even retreat if necessary. Tr.en .-.■ i em - 
the tournament against the program's skilled "droid. 
Revel in the fanfares of ths victorious— or hear the 
funeral dirges of the defeated! Entertainment for all 
ages, ' 

16K Tape, Si&SS" 

Mow thru Sept, 10 you pay just $9.98 



MNBAUL 



By John Alters from' Acorn 

Got your tripper, fingers ready for actio thi: -... • 

tiros, machine language gama Lots of sound and 
flashing graphic,-, ma^e this fast action game so much 
ike the rea thing that you'l lave c emind yourself 
not to snaKs your TRS-8Q, Choose from five playing 
speeds to match your sfciii. Can you oaas your friends' 
scores? Will you avoid the infamous "6. ' % a 
Square?" Get PfNBALL today and find out 
16K Tape, 514^3 
Now thru Sect. 10 you pay just $9.98 

*Mo joystick option. 




IORK 

From Persona! Software 
■■ :• ■■■■ te t idvei ture :.■.=-.. : j you u th( .. eat 
Underground Empire of Zork ! You'll face penis and 
puzzles as you try :o escape from Zork I with the Twenty 
Treasures and your life. You'l! experience challenges in 
their most realistic sense— you can communicate m 
€(.■ olele ■■■- fence wish the largest vo abulary and 
range of command options anywhere. Challenges 
change as you make /our move?. Beware mysterious 
objects and beware the ief ■:•■ ■ the dan* '. ture 

32K Disk„$39r95~ 

Now thru Kept. 10 you pay just $35.95 

GALAXY INVASION* 

By Hogue & Konyu from Sig-F ive 
"The rage of tf ■■ a sdes is ■ ■,.- availab i for 1 '■■:.■■ ■'.': 
E> ■ g sound ef icl addtotheactt r 3 the -....■■-.■ 
swoop down to destroy /our base. Even while you have 
your hands full battling the aliens, you have to watch oul 
for the Flagship! Super, graphics, super action, supei 
fun! Joystick compatible. 

Dis* Version ci ';sp* only. §17,95 



MISSION 2 




By Hogi e 5 Kos yu frt m =;.;: F ■... 

Six istronauts are stranded on a desolate planet r ou 

must undock from your command module and 

maneuver your rescue shuttle through the astetuki 

field to save them 

1 e;< Taps. SlfeOff 32K Disk, $1*9* 

Now ihru Sept. 10; Tape S8.95; Disk 49.95 




8y W. Godwin & D. Knowlton from Acorn 
Challenge the world's highest mountain without ^vgf 
leaving home, in this simulation you v\v.z-t buy the man- 
power arid supplies you will need to support your 
qii st Nov, the adventure beg ss as .;.■ :on uer the 
eiernents and terrain, establishing ever higher encamp- 
ments. Will you reach Everest's 29.028 foot summit? st 
can be done, but it takes planning, willpower, and luck. 

16K Taps of 32K Disk, $i&95 

Now thtij Sept. 10 you pay just $11.98 



ftGSKfti 



Sy Laurence, Sothen & Gavenda from Acorn 
Play football against a friend or your computer. With 
graphic display of the field, ball and scoreboard. 
Chocs© from 11 offensive plays against yc ■ op 
patients 7 defenses— 77 possible, play options; Five 
levels of difficulty; save the game feature. 

16KTape,£l4 ! 95' 

Now thru Sept. 10 you pay just $9.98 



ATTACK 
FORCE! ' 




By Hogue & Konyu from Big Five 

Unlike the usual space "shoot«m-ups," Attack Force 

lets you control both speed and direction as you 

maneuver all over the screen in search of the alien 

Re -■-::- ps a ■ I F agsh ps 

1 6 K 1 ape, $^§5* 32K Disk , $4*95 

Now thru Sept. 10: Tape $8.95; Disk $9.95 

GAMMON 
CHALLENGER 

By Daly & Throop from Acorn 
There's no other computer backgammon game like 
this one! Choose one of three levels of play, but don't 
get too ambitious— Gammon Challenger will put your 
skill tc the test at at! levels. For serious players, the 
"doubling cube" option can be used for added excite- 
ment. 

I6K Tape, $4495* 

Now thru Sept. 10 you pay just $9.98 



INVADERS I 



SPACE 




A fast r ac me language apprt r • s classic and 
add :i ,-. , . ■-.; -.-- u s The a e= .■■ >pb< -- . it .■■':•■ ; 
from side to side trying tc overrun your bases. You 
choose the speed, enemy bomb frequency and 
accuracy, your number of shots on screen and bases. 
Unlike most such games, you can move your base and 
simultaneously fire at the invaders. Full sound effects 
idd even : ■• ■_•: tome t t a in eaible iction o 
INVADERS FROM SPACE. Fun for all ages and skill 

16K Tape. *.14,$3* 

Now thru Sept. 10 you pay just $9.98 



By Charles Asper from Acorn 
Ready for 3-dimensionai Tic-Tac-Toe? Then you'll love 
Quad Ai irn's challenging version. Play against the 
computer or a friend; against the computer, there are 
4 levels of difficulty. Or rotate the cube 6 ways to help 
vol. and con-use your opponent. ?'S different winning 
4-in-a-row combinations. 

16K Tape, $1*95" 

Now thru Sept. 10 you pay just $5.98 



SPACE WAR 



By Device Oriented Games from Acorn 
Two-player, real-time action game that lets each 
player control a spaceship with rotate, thrust, fire and 
hyperspace. 5 game options (including gravity); 3 play- 
ing speeds. Lots of action as you maneuver your craft 
in an interstellar dogfight, or run for the cover of 
hyperspace! 

16K Tape, $&&& 

Now thru Sept. 10 you pay just $7.98 
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High-resolution graphics 



Dot addressable graphing 

Model I/III with Epson MX-80 and Graftrax-80 



Kenneth R. Smith, Baltimore, MD 



It was with some uneasiness that I sold my Model I 
(Level II, 16K), with its Expandor Black Box printer and 
plunged forward with a new Model III (48K, 2 disk, 
RS232), an Epson MX-80 printer and a modem. Would it 
all work? Would I spend a lot of time converting old 
programs I had written for the Model I? Would I be 
happy with my new setup? 

After conquering some of the small differences 
between the two models, I am quite happy with my new 
system. The MX-80, in particular, fascinated me. It 
printed uppercase, lowercase, all 64 TRS-80 graphics 
characters, compressed print, expanded print, 
emphasized print, doublestrike print and featured ad- 
justable line spacing, and adjustable tractors. I was 



Still lurking inside the chips, waiting to 
be called forth, were those enticing high- 
resolution graphics. 



now able to generate listings and reports that ap- 
proached "letter quality." Using SCRIPLUS by Roger 
Junk, a modification to SCRIPSIT, I could use all the 
MX-80 features directly from SCRIPSIT. Wow! Was I 
happy! 

Then a microcomputing magazine was delivered. 
Thumbing through the ads, I saw an incredibly 
beautiful ad by Epson for their GRAFTRAX-80. 
Needless to say, I rushed to my local supplier and 
purchased the kit for $95.00 plus tax. 

Testing it Out 

What I got was a plastic envelope containing three 
EPROMs and 24 pages of documentation. I opened the 
package and read the documentation very carefully . . . 
twice. After I decided that I was capable of doing the job 
myself, I followed the instructions for taking the cabinet 
apart, removing the old PROMs and inserting the new 
chips (even though the instructions said I would only 
find one PROM to remove and indicated I had to cut a 
jumper wire which was already cut). Anyway, I 
reassembled the entire thing, plugged it in, and put it in 
the self -test mode. It worked! 

By setting a dipswitch inside the printer, I now had 
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slashed zeros. I also had italics! Still lurking inside the 
chips, waiting to be called forth, were those enticing 
high-resolution graphics. After reading the instructions 
a few more times, I decided to try those "dot- 
addressable" or "bit-image" graphics, so I entered: 

LPRINT CHR$(27) CHR$(75) CHR$(224) CHR$(1); 

which tells the printer that the next 480 bytes it receives 
are to be printed as bit-image graphics (more on this 
later). I followed this with: 

FOR 1=1 TO 480 : LPRINT CHR$(1); : NEXT I 

After a brief pause, the printer drew a line of 480 dots 
across the page — in two passes. It did half the line, then 
homed the print head, and did the rest of the line on the 
second pass. Success! 

The special codes that are sent to the printer are 
usually preceded by an "escape" character which is not 
printed, but "tells" the printer that the next byte or 
bytes that it receives will tell it which mode to switch 
itself to. In the preceding example, CHR$(27) is the 
escape character, CHR$(75) puts the printer into "480- 
mode graphics," and the two bytes transmitted to the 
printer by CHR$(224) and CHR$(1) together tell the 
computer that the next 480 bytes are graphics 
characters. They do this by the formula 224+256*1. If 
we only wanted to transmit 100 bytes of graphics in this 
mode, we would use: 

LPRINT CHR$(27) CHR$(75) CHR$(100) CHR$(0); 

because 100+256*0=100. The general formula is: 

LPRINT CHR$(27) CHR$(75) CHR$(X) CHR$(Y); 

where X is an integer between zero and 255, Y is 
either or 1, and the number of bytes to be received is 
X+256*Y. Of course, it is necessary that X+256*Y must 
be less than or equal to 480 when in the "480-mode," or 
an error condition will be created within the printer. If 
any error occurs, the printer will "beep" eight times and 
refuse to accept further instructions until it is turned off 
and reset. 
The other line of BASIC: 
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For Your TRS-80 Color Computer 



Voyager I 




From Avalon Hill 
You're on board a spaceship infested with killer 
robots in this graphic science fiction game. You must 
clear the 4-level 144-location ship of robots and arm it 
to self-destruct. Can you do it and escape before you, 
too, are blown up? High-speed graphics are repre- 
sented in 3-D perspective representing your eye's 
view; with instant switching to floor plan maps. Ex- 
tended BASIC required. 
16K Tape, $19.95 



Ghost 
Gobbler 




From Spectral Associates 
In this new and exciting version of the popular arcade 
game, use your joysticks to move your Ghost Gobbler 
through the maze, eating dots and power pills to 
score points. 8 bonus shapes, super sound, and 16 
skill levels. Extended BASIC not required; joysticks. 
16K Tape, $21.95 




Creofavadar 

By Fred Scerbo from Illustrated Memory Banks 
Create your own antagonist, and fire away! Pick your 
pet target, or use ours: tv sets, killer tomatoes or 
smiley faces. Use the joystick to fire your cannon and 
clear the screen. Look out for the secret target 
defender! Extended BASIC and one joystick required. 
16K Tape, $18.95 

Madness 

and the Minotaur 

From Spectral Associates 

Classic adventure game with 200 rooms, assorted 
friendly and dangerous creatures, 8 magic spells and 
—of course— treasures. The computer obeys two- 
word commands such as "get lamp" to move you 
through your journey. You must enter the castle of 
King Minos, descend into the labyrinth and collect all 
the treasures you can. 
16K Tape, $19.95 

Color 

Computer Blockade 

By Terry Kepner from Interpro 
Compete against a friend or the computer in this real- 
time, full color arcade game with sound effects. Use 
your joysticks to draw a barrier around your opponent 
while avoiding the trap being set for you. Requires 
joysticks. 
Level I 4K/16K or Level II with Extended BASIC 

Tape, $14.95 



a?or 
Zone 




By Scerbo and Jammalo from Illustrated 

Memory Banks 

Revenge on the Preppies at last!! The Preppy Craze 

has gotten completely out of control. You must 

journey to the planet "Preptune" to stop the 'gators 

from invading earth in assorted garment forms. Use 

your shirt shields and lasers to protect you as you aim 

the crosshairs and press the fire button on your 

joystick. Get the gators before they get your shirts! 3' 

levels of difficulty. Extended BASIC required; 

joysticks. 

16K Tape, $18.95 



Moon 
Lander 




By Greg Zumwalt from American Small 
Business Computers 

Pilot your spacecraft over the moon's landscape and 
try to land it amid the mountains and craters. While 
carefully controlling your fuel consumption, use your 
joysticks to maneuver your craft and control your 
velocity against the forces of gravity. Be careful to 
avoid the asteroids drifting through space. 
16K Tape, $14.95 




ftobot Bat 



From Spectral Associates 

Can you dodge the never-ending horde of robots 
while avoiding the fatal touch of the Android? 
Realistic voices and 16 skill levels provide a tremen- 
dous arcade type challenge. Does not require Ex- 
tended BASIC; joysticks. 

16K Tape, $21.95 

The Super 

"Color" Terminal 

From Nelson Software Systems 
Time Share, Smart Terminal, High-speed Data Trans- 
fer and Videotex. Turns your Color Computer into a 
Super-smart terminal with all the features of VIDEO- 
TEX plus much more. Communicate with Dow Jones, 
CompuServe and computers like TRS-80 Models I, II, 
III, APPLE, etc. via modem or RS-232 direct. Save the 
data to tape, or print it! Cuts on-line costs to a 
minimum. 
Disk, $69.95 ROM Pak, $49.95 



S-80 Color Basic 

By Bob Albrecht from John Wiley & Sons 
Step-by-step guide to the unique color, sound and/ 
graphic capabilities of your new Color Computer. No 
previous experience is required. Teach yourself 
BASIC— there's a whole chapter on typical program- 
ming problems and solutions. 

Softcover, $9.95 

THS-80 Pmgrams 
and Applications 
for the Color 
Computer 

By Alfred Baker from Reston 
Handy guide to your Color Computer: how to play 
games, balance your checkbook, use your computer 
as a teacher, etc. With chapters on color and sound, 
art and music. Helpful for beginning or experienced 
computer user. 

Softcover, $14.95 

Color Computer 
Scarfman * 

From The Cornsoft Group 

Use the keyboard or joysticks to move your Color 
Scarfman through the maze to gobble up little yellow 
dots while avoiding 5 red monsters. If Scarfman can 
eat a yellow plus ( + ), a monster turns blue and can be 
eaten. Each time you clear the screen, the level and 
point value increase. Extended BASIC not required. 
4K Tape, $19.95 
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Scepter 
of Kiirgla 




From Rainbow Connection Software 

Real-time graphics adventure game with , arcade 

sound for the color computer. 13 floors of dungeon 

with monsters, treasure chests, hidden trap doors . . . 

even a flying magic carpet! All in your quest to find 

the Scepter of Kzirgla. Whatever you do, don't get , . 

caught in the poisonous gas cloud! Extended BASIC ' ' 

required. 

16K Tape, $16.95, 16K Disk, $21.95 



Master 

Control 




From Soft Sector Marketing 

This is a BASIC language program designed to de- 
crease typing time and error while providing direct 
control of motor, trace, audio and run. With Automatic 
Line Numbering and a custom key you can re-use or 
change at any time; plus 50 preprogrammed com- 
mand keys. Can be used on a 32K system. 
16K/32K Tape, $24.95 



For information Call 
202-363-9797 



To Order Call Toll-Free 800-424-2738 
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High-res 



FOR 1=1 TO 480 : LPRINT CHR$(1); : NEXT I 

sent the 480 bytes of graphics to the printer. Each byte 
was equal to 1, which told the printer to "fire" the 
bottom print needle at each of the 480 printable 
positions. A byte of would have fired none of the 
needles. Even though the MX-80 uses a nine-needle 
print head capable of printing nine dots vertically, only 
the top eight needles are used in the graphics mode. 
Each needle corresponds to a bit in the byte received by 
the printer. The bottom needle is fired whenever the 
least significant bit is set. The top needle is fired 
whenever the most significant bit is set, and so on, 
according to this table: 

Bit 7 Needle 8 (top) 

Bit 6 Needle 7 

Bit 5 Needle 6 

Bit 4 Needle 5 

Bit 3 Needle 4 

Bit 2 Needle 3 

Bit 1 Needle 2 

Bit Needle 1 (bottom) 

Therefore, if we wish to fire more than one needle in a 
print position, we must set more bits. For example, to 
fire all eight needles in a print position, we would need to 
send a byte with all eight bits set. The byte we would 
need would be 255 decimal. Remembering that each bit 
of a byte corresponds to a power of two, we can just "add 
up" the values for the needles we want to fire, according 
to this table: 

Needle 8 128 

Needle 7 64 

Needle 6 32 

Needle 5 16 

Needle 4 8 

Needle 3 4 

Needle 2 2 

Needle 1 1 

While this method will work for some simple 
applications, a more sophisticated method needs to be 
devised for more complex graphics. We will explore that 
method a little later on in this article. 

The MX-80 also has "960-mode graphics" in which it 
is capable of printing 960 dots across the page in one 
line. To access this mode, the special sequence is: 

LPRINT CHR$(27) CHR$(76) CHR$(X) CHR$(Y); 

Again, the CHR$(27) is the escape character and the 
CHR$(76) which follows it tells the printer to shift into 
"960-mode graphics." The CHR$(X) and CHR$(Y) that 
follow tell the printer how many bytes of graphics 
characters it will receive by the formula X+256*Y, 
where X is an integer between and 255, and Y is an 
integer between and 3. For example: 

LPRINT CHR$(27) CHR$(76) CHR$(100) CHR$(2); 
16 80-U.S. Journal 



would tell the printer to expect 612 bytes of graphics 
characters in the 960-mode because 612=100+256*2. Of 
course, when in this mode, X+256*Y cannot exceed 960. 
The same procedure used in the 480-mode is used for 
firing the needles in the 960-mode. On printing, though, 
a full line of 960 graphics is printed in four passes across 
the page, which really slows things down. 

That Fancy Sine Curve 

Now, let's investigate the program and techniques 
used to produce the pretty sine curve in Figure 1. 
Generally, the method is to set up an array of 480 bytes, 
one for each print position in the 480-mode. -The bytes 
are then output to the printer, reset to zero, and the 
whole process is repeated for 90 lines. The variable used 
to represent the current line is L. Values of L are 
multiples of 8 from to 712. Within each line, there are 
eight dots, numbered zero to seven. The variable used to 
represent the dot number is D. When L and D are added, 
their sum is an integer between and 719. These are the 
unsealed values which will be used to form the X-axis of 
our graph, which will run "down" the page, rather than 
across it. The Y-axis, on the other hand, is numbered 
from to 479 (480 bytes, remember?). This means that 
we have at our disposal 345,600 dots (480 across the 
page by 720 down the page). 

I chose to let 100 dots = one unit on the X-axis (down 
the page) and 80 dots = one unit on the Y-axis (across the 
page). By doing this, one unit on the X-axis is almost the 
same absolute distance as one unit on the Y-axis. Also, 
the numbers 80 and 100 are easily subdivided to mark 
axis divisions. Therefore, as we print the Y-axis, every 8 
dots = % of a unit, and every 40 dots = y 2 of a unit. As we 
print the X-axis, every 10 dots =1 / 10 of a unit, and every 
50 dots = y 2 of a unit. 

Referring to Listing 1, line 150 sets every other dot 
along the X-axis, line 180 detects when X = and sets up 
the Y-axis, and lines 190-210 detect units, tenths, and 
halves along the X-axis and make tick marks at those 
points. Line 120 is a safety measure taken to ensure that 
the printer's internal buffer is empty before attempting 
to enter the graphics mode. Line 130 sets the line 
spacing at eight dots per line so there will be no space 
between lines. 

Line 170 produces a value of X between 0.00 and 7.19. 
Line 220 contains the function of X to be graphed. Line 
230 transforms the functional value to a value which is 
scaled between and 479. Line 240 calls the subroutine 
at line 5000 to actually set the dot. 

The subroutine at line 5000 first checks to see if the 
number of the byte to be used is between and 479. If 
not, it returns without setting any dots. If the value of Y 
is between and 479, the proper byte is ORed with the 
value of the dot we wish to set, and then control is 
returned to the main program. 

Line 260 puts the MX-80 into the graphics mode to 
receive 480 bytes of graphics, which are sent out by the 
FOR... NEXT loop in lines 270-320. Line 280 checks to 
see if the printer is ready to receive a byte. Line 290 
detects if the computer is Model III, and if it is, outputs a 
byte to port 248 (the printer). Line 300, on the other 
hand, sees if the computer is Model I, and POKEs the 



-res 



Figure 1 
High-Resolution 




Figure 2 
Low-Resolution 



byte into location 14312, the printer "latch." Line 310 
resets the byte jus transmitted to zero for use in the next 
line. 

Playing for Higher Stakes 

Listing 2 shows how to produce similar curves in the 
960-mode. In this mode, we have available to us 960 dots 
across the page and 720 dots down the page, for a total of 
691,200 addressable dots. The output (Figure 2) will 
appear virtually the same as the Figure 1 except upon 
close examination. If you look closely, you will see many 
more "flat" portions in Figure 1. The curves in Figure 2 
will appear to be more "naturally curved" than the 
curve in Figure 1. 

In Figure 2, the sine curve is "solid," and all the other 
functions are "broken" into pieces of either four dots or 
two dots. Since the printer makes four passes on each of 
the 90 lines printed, plotting these curves takes an 
awfully long time, but the results are truly impressive! 

A great deal of time can be saved by "packing" the 
programs as much as possible and by using integer 



variables wherever possible. In BASIC, however, these 
programs will run slowly no matter what you do. I 
suspect that the real key to faster high-resolution 
graphics is the use of assembler language or the use of a, 
mixture of BASIC with assembler language 
subroutines. That is the project I have put on my "list of 
things to do" after I get a suitable editor/assembler for 
my Model III. In the meantime, however, I can still 
knock out some fantastic graphs! 

Program Listing 1 
Low-Resolution 

L00 DEFINT A-W 'THIS WILL HELP IT RUN 
A LITTLE FASTER 

110 DIM A (479) '480 BYTES MAKE ONE LINE 
L20 LPRINT CHR$(27)"@"; 'RESET MX-80 TO 

DEFAULT SETTINGS 
L30 LPRINT OHR$(27)"A"CHR$(8); "SET 8 D 
OTS PER LINE SPACING 

140 FOR L=0 TO 7L2 STEP 8 'ONCE FOR EA 
CH LINE OF 8 DOTS 

L50 A(240)=170 'SET EVERY OTHER DOP ON 
THE X-AXIS 

L60 FOR D=0 TO 7 'MAKE COMPUTATIONS FO 
R EACH NEEDLE 

170 X=(LfD)/L00 'X BETWEEN 0.00 AND 7 
.29, L00 TOTS/UNIT 

180 IF X=0 THEN GOSUB 1000 'SET UP THE 
Y-AXIS 

190 IF X=INT(X) THEN GOSUB 2000 'TICK 
MARK EACH UNIT 

200 IF X*2=INT(X*2) THEN GOSUB 3000 'TI 
CK MARK EACH 1/2 UNIT 

210 IF (LfD)/L0=INT((L+D)/lfl) THEN GOSU 
B 4000 'MARK EACH 1/10 

220 Y-SIN(X) 'THIS IS THE FUNCTION TO B 
E GRAPHED 

230 Y = INT(Y*80f240.5) 'COMPUTE BYTE T 
SET DOT IN 

2.40 GOSUB 5000 'SET THE DOT 
250 NEXT D 

260 LPRINT CHR$(27)CHR$(75)CHR$(224)CHR 
$(1); ' SET MX-80 FOR GRAPHICS IN THE 4 
80 MODE FOR THE NEXT 480 BYTES 
270 FOR 1=0 TO 479 

280 IF PEEK (14 312)061 THEN 280 'PRINT 
ER BUSY? 

290 IF PEEK(293)=73 THEN OUT 248, A(I) ' 
MODEL III 

300 IF PEEK(293)<>73 THEN POKE 14312, A( 
I) 'MODEL I 

310 A(I)=0 'RESET BYTE 
320 NEXT I 

330 LPRINT 'ADVANCE TO NEXT LINE 
340 NEXT L 
350 END 
1000 FOR Y-=0 TO 479 
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1010 GOSUB 5000 

1020 NEXT Y 

1030 FOR Y=0 TO 479 STEP 80 

1040 A(Y)=A(Y) OR 248 'MARK EVERY UNIT 

1050 NEXT Y 

1060 FOR Y=0 TO 479 STEP 40 

1070 A(Y)=A(Y) OR 240. 'MARK EVERY 1/2 U 

NIT 

1080 NEXT Y 

1090 FOR Y=0 TO 479 STEP 8 

1100 A(Y)=A(Y) OR 224 'MARK EVERY 1/10 

1110 NEXT Y 

1120 RETURN 

2000 FOR Y=235 TO 245 

2010 GOSUB 5000 

2020 NEXT Y 

2030 RETURN 

3000 FOR Y=240 TO 244 

3010 GOSUB 5000 

3020 NEXT Y 

3030 RETURN 

4000 FOR Y=240 TO 242 

4010 GOSUB 5000 

4020 NEXT Y 

4030 RETURN 

5000 IF Y<0 OR Y>479 THEN RETURN 'OUT 

F RANGE 

5010 A(Y)=A(Y) OR 2[(7~D) ' SET THE DOT 

5020 RETURN 

Program Listing 2 
High-Resolution 

100 DEFINT AHA/ 'THIS WILL HELP IT RUN 
A LITTLE FASTER 

110 DIM A(959) '960 BYTES MAKE ONE LINE 

120 LPRINT CHR$(27)"@"; 'RESET MX-80 TO 
DEFAULT SETTINGS 

130 LPRINT CHR$(27)"A"CHR$(8); 'SET 8 D 

OTS PER LINE SPACING 

140 FOR L=0 TO 712 STEP 8 'ONCE FOR EA 
CH LINE OF 8 DOTS 

150 A(480)=170 'SET EVERY OTHER DOT ON 

THE X-AXIS 

160 FOR D=0 TO 7 'MAKE COMPUTATIONS FO 

R EACH NEEDLE 

170 X=(L+D)/100 'X BETWEEN 0.00 AND 7 

.29, 100 DOTS/UNIT 

180 IF X=0 THEN GOSUB 1000 'SET UP THE 

Y-AXIS 

190 IF X=INT(X) THEN GOSUB 2000 'TICK 

MARK EACH UNIT 

200 IF X*2=INT(X*2) THEN GOSUB 3000 'TI 

CK MARK EACH 1/2 UNIT 

210 IF (L+D)/10=INT((L+D)/10) THEN GOSU 

B 4000 'MARK EACH 1/10 

220 Y=SIN(X) 

230 Y = INT(Y*160+480.5) 'COMPUTE BYTE 

TO SET DOT IN 
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240 GOSUB 5000 'SET THE DOT 

241 IF D>3 THEN Y=SIN(2*X) : Y=INT(Y*16 
0+480.5) % GOSUB 5000 

242 IF D<4 THEN Y=2*SIN(X) i Y=INT(Y*16 
0+480.5) : GOSUB 5000 

243 IF D=0 OR D=l OR D=4 OR D=5 THEN Y= 
COS(X) : Y=INT(Y*160+480.5) : GOSUB 500 


244 IF D=2 OR D=3 OR D=6 OR D=7 THEN Y= 
-SIN(X) : Y=INT(Y*160+480.5) : GOSUB 50 
00 

250 NEXT D 

260 LPRINT CHR$(27)CHR$(76)CHR$(192)CHR 

$(3); ' SET MX-80 FOR GRAPHICS IN THE 9 

60 MODE FOR THE NEXT 960 BYTES 

270 FOR 1=0 TO 959 

280 IF PEEK(14312)<>61 THEN 280 'PRINT 

ER BUSY? 

-290 IF PEEK(293)=73 THEN OUT 248, A(I) ' 

MODEL III 

300 IF PEEK(293)<>73 THEN POKE 14312, A( 

I) 'MODEL I 

310 A(I)=0 'RESET BYTE 

320 NEXT I 

330 LPRINT 'ADVANCE TO NEXT LINE 

340 NEXT L 

350 END 

1000 FOR Y=0 TO 959 

1010 GOSUB 5000 

1020 NEXT Y 

1030 FOR Y=0 TO 959 STEP 160 

1040 A(Y)=A(Y) OR 248 'MARK EVERY UNIT 

1050 NEXT Y 

1060 FOR Y=0 TO 959 STEP 80 

1070 A(Y)=A(Y) OR 240 'MARK EVERY 1/2 U 

NIT 

1080 NEXT Y 

1090 FOR Y=0 TO 959 STEP 16 

1100 A(Y)=A(Y) OR 224 'MARK EVERY 1/10 

1110 NEXT Y 

1120 RETURN 

2000 FOR Y=470 TO 490 

2010 GOSUB 5000 

2020 NEXT Y 

2030 RETURN 

3000 FOR Y=480 TO 488 

3010 GOSUB 5000 

3020 NEXT Y 

3030 RETURN 

4000 FOR Y=480 TO 484 

4010 GOSUB 5000 

4020 NEXT Y 

4030 RETURN 

5000 IF Y<0 OR Y>959 THEN RETURN 'OUT 

F RANGE 

5010 A(Y)=A(Y) OR 2[(7-D) ' SET THE DOT 

5020 RETURN ■ 




..NEWSCRIPT 

SSOR FOR 
PROFESSIONALS 



We offer you ongoing support by answering 
your questions and providing reasonably 

priced enhancements, 

A FEW OF NEWSCRIPTS STANDARD FEATURES: 

*Form Letters with merging of names and addresses 

*Gives superb appearance to your final documents 
*Comprehensive manual with hundreds of examples 
*Centering, top/bottom titles, indents, pagination 
*Underlining, boldface, double-width, italics 1 
*Sub-scripts. super-scripts, proportional pitch + 
*Generates Table of Contents, sorted Index 
*Allows block graphics, special symbols + 

*Search and replace globally or within a range 
*Block move, copy, delete, insert from other file 
*AUTOSAVE, WHOOPS. DIRECTORY, KILL. REPEAT 

*Based on IBM's "EDGAR" and "SCRIPT" systems 

* Supplied ready-to-run on "tiny" DOSPLUS 

*Easily transferred to NEWDOS. NEWDOS/80. LDOS, TRSDOS 

*Includes handy Quick Reference Card 

NEWSCRIPT CONTROLS THESE PRINTERS: 

*EPSON MX-80. MX-100: all 12 fonts, plus underlining 
and block graphics; italics with GRAFTRAX 

♦Centronics 737. 739; Radio Shack L.P. IV, L.P. VIII, Prowriter, 
Daisy Wheel II. NEC PC-8023A. TEC 8500R, C.ITOH 8510: 
Right-justified true proportional printing 

*Good support for: Diablo, Spinwriter, Starwriter, QUME, Microline, 
Anadex, modified Selectric, standard line printers 

NOW AVAILABLE: right-justified true proportional support for 
Diablo, Spinwriter, Starwriter, and Qume (DaisyWheel Option)** 

TYPICAL USER AND REVIEWER COMMENTS: 

"There is a new word processor on the market that will change the way people think about the capabilities of the TRS-80. Imagine a 
powerful mainframe text editor running on a TRS-80, with virtual compatibility between the two versions. ..on-going support second to 
none, with superb documentation." (Jim Klaproth, 80-U.S. JOURNAL February, 1982) 
the manual: 

"It definitely rates the first '10' given to any documentation reviewed in this column." (A.A. Wicks, COMPUTRONICS, October, 1981) 

the software: "An excellent Word Processor" (D.H.); "Absolutely fantastic" (S.E.S.): "You have features that I cannot duplicate 
on my $14,000 system" (J.B.) 

the support: "Your phone information system and the prompt and courteous staff that you provide to help your clients. ..are worth 
the cost of the system." (V.H.H.) 




REQUIRED CONFIGURATION: 48K TRS-80 with 
one' disk drive. Specify Model I or Model III. 

* Some features work only if your printer has the mechanical capability 
DaisyWheel proportional is extra-cost option 

TO OEDEE, €!U NOW, TOLL-FBEE; 

(800) 824-7888, Operator 422 

CALIF: (800) 852-7777, Oper. 422 

ALASKA/HAWAII: (800) 824-7919 

FOR TECHNICAL INFORMATION CALL: 

(213)764-3131, or write to us. 



Order from your Software dealer, or from: 




NEWSCRIPT 7.0: $ 1 24.95 

MAILING LABELS OPTION: 29.95 

Special: NEWSCRIPT + LABELS: 139.95 

Dalsywheel Proportional Option: 49.95 

"PENCIL'TSCRIPSIT" File Converter: 14.95 
Manual Only ( 1 80 pages): 30.00 

Reference Card Only: 2.50 

Electric Webster + Correction Feature: 149.50 
Oraphlcs Editor and Programmer: 45.95 

OEAP & Dotwrlter (Hl-Res. letters): 74.95 

DOSPLUS 3.4: 149.95 
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* NO. HOLLYWOOD, CA 91603 



TERMS: We accept VISA, Mastercard, checks, Money Orders, C.O.D. and 
even cash. We pay shipping via surface UPS inside U.S.A. Please add 
S3. 00 for Blue Label, 6% tax in California, and 15% outside North Amer- 
ica (air shipment). 
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TRS-80* Computer Owners. . . 




VALUES 






New Low Prices 

el 111 Disk Drives! 





Complete First-Drive Systems 



from 



$449 
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Internally mounted drives that feature double- or 
single-density storage, comprehensive pre- 
delivery testing, 48-hour burn-in and, best of all, 
Percom's widely acclaimed disk controller. A 
First-Drive System includes the four-drive disk 
controller, one or two drives, power supplies, 
cables and a fully illustrated owners manual. Use 
Model III TRSDOS*, Percom OS-80+ and all 
other Model III compatible DOSs. 

Note: If you prefer not to make the First-Drive 
System installation, we'll do it for only $29.95 
plus shipping. This includes a 48-hour operat- 
ing burn-in of your Model III computer, instal- 
lation of the drive system and final checkout 
of the expanded system. 
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Our Own Fully Tested Drives 

from only $275 

• Every Access Floppy Disk drive is electrically tested, mechanically tested and 
bumed-in 48 hours under operating conditions. Look for the signed test list in 
the shipping carton. 

• AFD drives are capable of either single- or double-density operation. Store up 
to 364 Kbytes (formatted) in double density. Store twice the data on a single 
diskette using AFD "flippy" drives." 

• 15-day free trial offer... comprehensive 90-day limited warranty... unbeatable 
prices... AFD-1 00 (a $275.00, -100F (a $329.00, -200 (& $429.95, -200F @ 
$449.95. 



How to order-Order by calling Access Unlimited toll-free on 1-800-527-3475. Or order by mail. 
Orders may be charged to a VISA or Master Card account, or paid by cashier's check, certified 
check or money order Sorry, we cannot accept personal checks. We pay freight (surface only) 
and insurance charges for shipments in U.S. on orders over $1,000.00. Add approximate 
insurance and shipping charges for orders under $1 ,000.00 If in doubt about these charges, 
ask when you call in your order Texas residents include 5% sales tax. Minimum mail order 
$20.00 Allow 2 to 4 weeks for delivery 

Texas (214)340-5366 

Save! VISA and Master Card charges are not deposited 
until the day your order is shipped. 



PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE 



Everybody's Favorites - 


for Less! 


Percom Data Separator 


$23.95 


Green Screen I, II, or III 


$18.95 


Head Cleaning Kit 


$24.95 


Drive Numbering Tabs (pkg 0-3) 


$4.50 


5V4" Flip-N-File 


$24.95 


8" Flip-N-File 


$39.95 
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LOWER PRICES 





Percom' s Proven DOUBLER ll f 

Upgrade Your Model I to Double Density for 

only $159.95 

And not with some unproven hacker's kit, either. But with an assembled and fully 
tested Percom DOUBLER-II*. The DOUBLER ll T simply plugs into the disk drive 
controller socket of your Expansion Interface. Then it lets you store over four times 
more on one side of a diskette, depending on the drive, than you can store on 
standard Tandy Model I drives. Other features: • Reads, writes and formats either 
single- or double-density • Includes DBLDOS", a TRSDOS* compatible disk- 
operating system • Runs TRSDOS*, NEWDOS TT , Percom OS-80 1 " and other 
single-density software immediately. Change to double-density operation when con- 
venient • Use Move 1-2-3 utility ($29.95) or other appropriate software to read 
Model III programs on your Model I. ® Includes on-card high-performance data 
separation and write precompensation circuitry. 



Clear-Out Sale on 
Microline-80 Printers! 



only 



$379 




Low Cost 
System Furniture 

Modular design permits cus- 
tom arrangements ® Furniture 
styling and quality • TRS-80* 
colors • OK for UPS shipping 
® Reassemble without tools 

System desks from $115 
Printer stands from $144 



Arrick Products Quick-Switch}: 

Just flick a switch to connect your TRS-80* printer port from device #1 to 
device #2. Or, "Quick-Switch" a peripheral between computers. Versions 
for RS-232 or Centronics interfacing. Includes box-mounted 34-pin card-edge 
plugs. From $89.95. Cables from $29.95. 

* trademark of Arrick Products Company. 



Save! Make ACCESS your one-call shopping center for TRS-80* 
hardware and software. Call our toll-free order number for free 
product literature and latest prices. Ask for our new, free 
software catalog. 



Toil-Free 
Order No. 



1-800-527-3475 



o 



ACCESS UNLIMITED 



"Trademark of Access Unlimited 
t Trademark of Percom Data Company. Inc. 



(orders & literature only) 



401 N. Central Expressway #600 
Richardson, Texas 75080 
(214) 340-5366 

'Trademark of Tandy Radio Shack Corporation 
ftTrademark of Apparat Corporation. 
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Drafting on the TRS-80 



Routines to draw arcs, circles and lines 









Model I/UI, 16K 















Darrel L. Bartelheimer, Snohomish, WA 















I have become fascinated with CAD/CAM (Computer 
Aided Drafting/ Computed Aided Manufacturing) in 
industry. Never have I seen anything resembling this 
for the home computer. Therefore, I decided to write my 
own version of a computer drafting machine. 

The TRS-80 has limited resolution graphics, with 47 
points vertical and 127 points horizontal. A more 
serious problem is that the dots are not dots but 
rectangles with the vertical dimension about twice the 
horizontal dimension. This severely distorts circles and 
causes lines to be of different widths depending on 
whether they are vertical or horizontal. 

Remembering from elementary drafting that almost 
any complex figure can be drawn using just a compass 
and straightedge, that is, using straight lines and arcs 
(of circles) or circles. This program defines the CRT 
(video screen) as being an 8-inch high by 10-inch wide 
drafting board. Coordinates are defined such that the 
point (0,0) is at the lower left hand corner of the screen. 
All coordinates are in inches. It draws arcs in a subrou- 
tine at location 1000 given the center location X and Y, 
the radius R, and the starting and ending angles TL and 
TU, respectively. The angles are defined as in a 
compass rose with zero degrees straight up (North), 90 
degrees right (East), 180 down (South) and 270 left 
(West). Negative angles may be entered, but one must be 
certain that the starting angle is less than the ending 
angle. An option is the display of the center point of the 
circle. Set CC to 1 to display the center, otherwise. 

No attempt is made here to explain the operation of 
the line and arc subroutines since these involve 
trigonometry and analytic geometry. Towards the end 
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of writing these routines, I sometimes did whatever it 
took to get them to work as specified instead of 
analyzing each step, so there are probably changes that 
can be made to make them 'more elegant.' For now, they 
work. Just use them. Treat them as software black boxes. 

Lines 800 and 805 are approximately an hour timer to 
prevent the computer from writing over your display. 

To draw your own displays, erase all lines from 50 to 
799 and replace them with your own display 
commands. 

■ 

A Guided Tour 

I feel that the best method of tea chin g this system is to 
give a guided tour through the generation of the Test 
Pattern. Refer to the listing and the Test Pattern, Figure 
1 for the following discussion. 

The semicircle in the upper right hand corner is 
generated from line 50. Its center position on the 8x 10- 
inch page is X=8.9, Y=7.25 with a radius, R=l. Only the 
right hand side of the circle is displayed, corresponding 
to a starting angle, TL, of (TL=0) and the ending 
angle, TU, of 180 (TU=180). We do not want the center 
displayed, so CC is set to (CC=0). Actually, since we 
draw the diameter, this point is eventually displayed. 
The semicircle is drawn by calling the subroutine at 
location 1000 (GOSUB 1000) to draw the arc. 

The vertical line of this figure is drawn from line 55, 
Starting at the top, X=8.9 (the same as the center of the 
circle), Y, however, is 7.25 plus a distance equal to the 
radius (=1) or Y=8.25. The distance is 2 <D=2), twice the 
radius. The angle is 180 (T=180), straight down. The 
line is drawn by the subroutine at location 2000 






Drafting 



(GOSUB 2000). 

Examining the figure immediately to the left, we 
notice that the figure is rotated 45 degrees (% turn) 
counterclockwise. The semicircle is drawn from 
statement 60. X, Y and R should be self-explanatory at 
this point. The angles are TL=45 and TU=135. This is 
simply 45 subtracted from the angles of line 50. TL=315 
and TU=495 would work just as well. Note, however, 
that TL=45 and TU=495 would draw the entire circle. 



Figure 2 




The diameter is drawn from line 65 at T=135 degrees. 
The location of the starting point was determined by 
trial and error, i.e., by picking an approximate point and 
then drawing the line (running the program). If the line 
is not where you wish it to be, use the Editor to change 
the coordinates. (Guess again.) 

Another method of drawing this line is demonstrated 
in lines 85 and 87. These lines refer to the figure in the 
upper left hand corner. Here we use the center of the 
semicircle as the starting point and draw lines of length 
equal to the radius in the directions 45 and -135 degrees. 
(D=l and T=45, -135 respectively.) 

The next figure of interest is the quarter moon figure 
in the second row, far right. The outer semicircle is 
simply a half circle drawn from line 130. The inner circle 
is a partial circle of larger radius. Another subroutine at 
location 3000 was written to handle problems where the 
radius and angles are unknown but the starting and 
ending coordinates are known. Referring to line 135, the 
center point has the same Y coordinate (Y=4.25) but the 
X coordinate has been moved l / 2 inch to the left (X=8.4) 
The starting and ending coordinates of the arc can be 
determined from line 130. The X coordinate of both are 
the same as the previous center. The Y coordinates are 
one inch (the previous radius) above and below the 
present Y center coordinate (Y=5.25 and 3.25 resp.). 
New variables are defined to handle these starting and 
ending coordinates. These are XL and YL for the start of 
the arc and XU and YU for the end. After these 



variables are set, the subroutine at line 3000 is called. 

The circle at the lower right hand corner is drawn 
from line 250. Here the starting and ending angles, TL 
and TU, are and 360 degrees. 

The large wheel with five spokes is drawn using the 
subroutine at line 4000. It is called from line 700. X, Y 
and R are set for the outer circle. The number of spokes is 
specified by setting NS (NS=5). TS is the angle where 
the first spoke is located. Note that the program evenly 
spaces the spokes angle-wise. 

Drafting on Other Computers 

For readers who may wish to rewrite these routines to 
run on non-TRS-80 computers, some comments are in 
order. Obviously, of course, any changes between the 
BASIC of the TRS-80 and other machines will have to be 
taken into account. This section is mainly concerned 
with scaling and display dimensions. 

Lines 1000 and 2000 introduce the coordinate 
transformation for X and Y. The TRS-80 plots 12.7 
points/inch on the X-axis and 5.371 points on the Y- 
axis. Since there are 47 points on the Y-axis and I 
wished to define (0,0) in the bottom left corner, I had to 
invert the display by the statement: 

YS=47-5.371*Y 

The statement: SF=2.36455 in lines 1000 and 3000 is 
merely the ratio of 12.7/5.371 needed for display angle 
calculations. Other constants in the listings are merely 
conversions from degrees to radians and vice-versa 
since the TRS-80 uses radians and I chose degrees in 
these routines for ease of use. 

Ed. Note M /The demonstration program (Listing 2) will pro- 
duce the drawing seen in the heading of this article. 



Listing 1 
Test Pattern 

10 CLS 

50 X=8.9: Y=7.25: R=l: TL=0 : TU=180 : 

CO0 : GOSUB 1000 

55 X=8.9: Y=8.25: D=2 : T=180 : GOSUB 2 

000 

Y=7.25 : R=l : TL=-45 : TIM 
: GOSUB 1000 

Y=8 : D=2 : T=135 : GOSUB 20 



60 X=6.9 : 

35 : CO0 

65 X=6.4 : 

00 

70 X=4.5 : 

: CC=0 : 

75 X=3.5 

2000 

80 X=1.5 

45 : CO0 

85 X=1.5 

2000 

87 X=1.5 

B 2000 



Y=7.25 : R=l 
GOSUB 1000 

Y=7.25 : D=2 

Y=7.25 : R=l 

: GOSUB 1000 

Y=7.25 : D=l 

Y=7.25 : 0=1 



TL=-90 : TU=9 
T=90 : GOSUB 
TL=-135 : TU= 
T=45 : GOSUB 
T=-135 : GOSU 
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130 X=8.9: Y=4.25: R=l : TL=0 : TU=180 

% CC=0 : GOSUB 1000 

135 X=8.4: Y=4„25:XL=8.9: YL=5„25: XU=8 

.9: YU=3.25: GOSUB 3000 

250 X=8 8 9: Y=1.25sR=l :TL=0:TU=360:CC=0 

:GOSUB 1000 

300 PRINTS 330, "TRS-80 DRAFTING/GRAPH I 

CS TEST PATTERN"; 

320 PRINTS 478, "D„ L. BARTELHEIMER"; 

700 X=2.5 : Y=2.5 : R=2 : TS=20 : NS=5 

: GOSUB 4000 

800 FOR 1=0 TO 1000000 

805 NEXT I 

990 REM ********** 

991 REM 

992 REM ** THIS SUBROUTINE DRAWS ARCS 
R CIRCLES, 

993 REM ** WITH CENTER AT X, Y 

994 REM ** RADIUS OF R 

995 REM ** STARTING ANGLE TL 

996 REM ** ENDING ANGLE TU 

997 REM ** FLAG CC=1, CENTER POINT D 
RAWN, CC=0 OTHERWISE 

998 REM 



SWEET-TALKER, 
IVES YOUR COMPUTER AN 
VOCABULARY, 
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' Parallel Version 

Apple II Version 
As Featured in Ciarcia's Circuit Cellar, 
Byte Magazine, September 1981. 

The Sweet-Talker voice synthesizer allows you to add speech of 
unlimited vocabulary to your computer. Utilizing the Votrax SC-01 A chip, 
you can output any message by programming individual phonemes. 
Comes in two versions; one plugs directly into your Apple II, the other 
connects to any computer with an 8-bit parallel printer port. + 12 volts 
and + 5 volts required for parallel board. 
•Contains 64 different phonemes ST01 Sweet Talker Parallel 

accessed by a 6 bit code. Port Board A & T $139.00 

•Automatic and manual inflec- ST02 Sweet Talker Apple II 
tion modes. plug in board 149.00 

• Parallel port driven or plug-in ST06 Text-to-Speech 
compatible with Apple II. algorithm on disk 

•Super text-to-speech algorithm for Apple II 35.00 

on disk for Apple II. Makes SC01A Votrax Speech 

Sweet-Talker equivalent to Synthesizer chip 70.00 

units 3 times the cost. 5 or more .55.00 each 

• On board audio amplifier UPS01 Universal Power Supply- 

• Sample program on cassette A & T 35.00 

with Apple II board. Add $200 tor shlpp i n g & handling. 

• Optional power supply for 
parallel board. 

To Order: Call Toll Free 1-800-645-3479 -fCfSP*"' ""^!!X\ 

(In N.Y. State Call: 1-516-374-6793) r 0?T /""" ~~~"">£s3Cx 

For Information Call: 1-516-374-6793 JHf / ^- ~y / * m j*\S 

MICROMINTINC. SM / / /^ ~ < ^WW®» 

917 Midway Bf / / / #^ 

Woodmere N Y 11598 j&fgf III #11 ^ 




999 REM ********** 

1000 XS=12.7*X : YS=47-5.371*Y : RX=12. 
8*R : RY=5*371*R : SF=2. 36455 : IF TL>T 
U THEN TU=TU+360 

1005 IF TL<0 THEN TL-TL+360 : TU=TU+360 

1010 IF COl THEN SET(XS+0.5,YS+0.5) 

1015 IF (TL <= 90 AND TU >= 90) OR TU > 

=450 THEN 1020 ELSE 1025 

1020 SET(XS+RX+0.5,YS+0 O 5) 

1025 IF (TL <= 270 AND TU >= 270) OR TU 

>=630 THEN 1030 ELSE 1035 
1030 SET(XS~RX+0.5,YS+0.5) 
1035 IF (TL <= 180 AND TU >= 180) OR TU 

>= 540 THEN 1040 ELSE 1045 
1040 SET(XS+0.5,YS+RY+0.5) 
1045 IF (TL <= AND TU >= 0) OR TU >=3 
60 THEN 1050 ELSE 1055 
1050 SET(XS+0.5,YS-RY+0.5) 
1055 FL=0 : F1=0 : YL=RY 
1100 FOR XX=1 TO RX 
1110 YY=RY*RY - 0.1761*XX*XX 
1112 IF YY<0 THEN YY=0 
1114 YY=SQR(YY) 

1116 IF YL-YY>1 THEN YT=YY : YY=YL-1 : 
FL=1 : ELSE FL=0 

1118 TH=90-57.29578*ATN(SF*YY/XX) : T2= 
TH : IF (TL <= T2 AND TU >= T2) OR TU > 
= 360+T2 THEN 1120 ELSE 1125 
1120 SET(XS+XX+0 8 5,YS-YY+0.5) 
1125 T3=360-TH : IF (TL <= T3 AND TU >= 

T3) OR TU >= 360+T3 THEN 1130 ELSE 113 
5 

1130 SET(XS-XX+0,5,YS-YY+0.5) 
1135 T2=180-TH : IF (TL <= T2 AND TU >= 

T2) OR TU >= 360+T2 THEN 1140 ELSE 114 
5 

1140 SET(XS+XX+0.5,YS+YY+0.5) 
1145 T4= 1804-TH : IF (TL<= T4 AND TU>=T 
4) OR TU>=360+T4 THEN 1150 ELSE 1160 
1150 SET(XS-XX+0 o 5,YS+YY+0.5) 
1160 IF Fl=l THEN GOTO 1600 
1175 IF FL=1 THEN YY=YY-1 ELSE GOTO 120 


1180 IF YY<=YT-1 THEN 1200 ELSE GOTO 11 
18 

1200 YL=YY 
1500 NEXT XX 

1550 IF F1=0 AND YY>0 THEN Fl=l : GOTO 
1118 

1600 IF YY>0 THEN YY=YY-1 : Fl=l 
1610 IF YY>0 THEN GOTO 1118 
1620 RETURN 

1990 REM ********** 

1991 REM 

1992 REM ** THIS ROUTINE DRAWS A STRAI 
GHT LINE, 
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DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK 

CO 

I 

s ■ ■ 

I Super Sale on DISK DRIVES 

| was $299^5 • now only $199.95 complete!! 

g . 40-track, double/single density 

| RADIO SHACK — HEATH — ZENITH — S 100 

g & MOST OTHER COMPUTERS 

S (with power supply and case) 

% , ORDER NOW • SUPPLY IS LIMITED 

a SPECIAL! Disk Drive Head Cleaning Kits . . .$1 2.95 

Q 

ft Drive a Hard Bargain!!* 

I 5 MB- 10M.B. with Power Supply Case, Cables & Software 

£ Complete Systems .... starting from $1,895.00 

Q TOLL FREE ORDERING 

a: 1-800-343-8841 

& We are now offering special pricing on: 

w Diskettes of all sizes . . 9 ,a rt „ 9 at $23.00 

Dot Matrix Printers $Call 

^ Word Processing Printers starting at $895.00 

§ Printer Buffers 8K to 64K starting at $1 43.00 

w Disk Drive Cases and Power Supplies . .starting at $49.95 

| DOSPLUS — 3.4 — SSpecial Price 

° Filler pieces for Basf slimline drives $6.98 

° '"Ask about our special warranty. 

I SOFTWARE SUPPORT 

iS. M . M ONE STALKER LANE ! FRAMINGHAM, MA01701 

O checks accepted at no extra charge. (617) 872-9090 1 TANDY CORPORATION 

CO C.O.D. Please add $3.00. 2 " ZENITH DATA SYSTEMS 

LU Shipping: Please call for amount #12 

Aida asia SBAiaa xsia saAiaa asia sbaiuq xsia sbaihq xsia sbaiuq xsia saAiua xsia sbaibo 
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Drafting 



STARTING AT X, Y 

OF LENGTH (DISTANCE) D 

AND ANGLE (IN DEGREES) 



1993 REM ** 
L994 REM ** 

1995 REM ** 
F T (THETA) 

1996 REM 

1997 REM ********** 

2000 XS=12.7*X : YS=47-5.371*Y : T=0.01 

745329*T 

2010 DX=12.7*SIN(T)*D : DY=5. 371*COS(T) 

*D 

2012 SS=0 

2014 IF (-.349<T AND ,349>T) OR T>5.934 
OR (2.51327<T AND 3.77>T) THEN 2100 E 

LSE 2015 

2015 K=DY/DX : IF K=0 THEN ST=1 ELSE ST 
= 1/K 

2017 IF ABS(ST)>1 THEN SS=1 ELSE SS=ABS 
(ST) 

2018 IF DX<0 THEN SS=-SS 
2020 SET(XS+0.5,YS+0.5) 

2040 FOR I=XS+1 TO XS+DX STEP SS 

2050 J=YS-K*(I-XS) 

2060 SET(I+0.5,J+0.5) 

2062 NEXT I 

2064 RETURN 

2100 K=DX/DY : IF K=0 THEN ST=1 ELSE ST 

= 1/K 

2110 IF ABS(ST)>1 THEN SS=1 ELSE SS=ABS 

(ST) 

2120 IF DY>0 THEN SS=-SS 

2130 SET(XS+0.5,YS+0„5) 

2140 FOR I=YS+1 TO YS-DY STEP SS 

2150 J=XS-K*(I-YS) 

2160 SET(J+0.5,I+0.5) 

2170 NEXT I 

2180 RETURN 

2990 REM ********** 

2991 REM 

2992 REM ** THIS ROUTINE DRAWS ARCS W 
HERE 

2993 REM ** X,Y ARE COORDINATES OF 
CENTER 

2994 REM ** XL,YL ARE COORDINATES 
F START OF ARC 

2995 REM ** XU,YU DEFINE THE ANGULA 
R LENGTH OF THE ARC 

2996 REM ** THE ANGLES DO NOT HAV 
E TO BE GIVEN FOR THIS 

2997 REM ** ENTRY POINT. THE CENT 
ER IS NOT DRAWN 

2998 REM 

2999 rem ********** 

3000 CC=0 : R=SQR((XL-X) [2 + (YL-Y) [2) : 
SF=2. 36455 : IF YL-Y=0 THEN TL=90 ELSE 
TL=57.29578*ATN(SF* (XL-X) /(YL-Y) ) 

3010 IF XL-X <0 THEN TL=TL-180 
26 80-U.S. Journal 



3020 IF YU-Y=0 THEN TU=0 ELSE TU=57.295 

78*ATN (SF* (XU-X) / (YU-Y) ) 

3030 IF XU-X <0 THEN TU=TU+180 

3035 TL=90-TL : TU=90-TU 

3040 GOTO 1000 

3990 REM ********** 

3991 REM 

3992 REM ** THIS SUBROUTINE DRAWS A WH 
EEL WITH SPOKES 

3993 REM ** X, Y ARE COORDINATES OF 
CENTER 

3994 REM ** R IS RADIUS 

3995 REM ** NS IS NUMBER OF SPOKES 

3996 REM ** TS IS ANGLE OF ONE OF TH 
E SPOKES 

3997 REM 

3998 REM ********** 

4000 TL=0 : TU=360 : COl : GOSUB 1000 

4050 D=R : T=TS : GOSUB 2000 

4100 TT=360/NS 

4150 FOR 11=1 TO NS 

4200 TS=TS+TT : T=TS : GOSUB 2000 

4250 NEXT II 

4300 RETURN 

Listing 2 
Demonstration Program 

10 CLS 

50 X=l : Y=2.3 : D=6 : T=90 : GOSUB 200 



55 X=l : Y=2.3 : D=3.5 % T=0 : GOSUB 20 

00 

60 X=1.5 : Y=5e8 : R=0.5 : TL=-90 % TU= 

90 : CC=0 : GOSUB 1000 

65 X=6 : Y=2.3 : R=l : TL=0 : TU=90 : G 

OSUB 1000 

70 X=2 : Y=4.8 : D=l : T=0 : GOSUB 2000 

75 X=3.5 : Y=4.8 : R=1.5 : TL=180 : TU= 

270 : GOSUB 1000 

80 X=3.5 : Y=3.3 : D=2.8 : T=90 : GOSUB 

2000 
85 X=7 : Y=2.3 : D=2 : T=45 % GOSUB 200 


90 X=7.414 : Y=3,714 : R=l : TL=0 : TU= 
90 : GOSUB 1000 

95 X=3.1414 : Y=6.214 : D=l : T=0 : GOS 
UB 2000 
100 X=4.6414 : Y=6.214 : R=1.5 % TL=180 

: TU=270 : GOSUB 1000 
105 X=4.6414 : Y=4.714 : D=2.8 : T=90 : 

GOSUB 2000 
110 X=2.6414 : Y=7.214 : R=0.5 : TL=-70 

: TU=90 : GOSUB 1000 
115 X=l : Y=6.1 : D=2 : T=45 : GOSUB 20 
00 
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120 X=6 : Y=2.3 : D=l : T=180 : GOSUB 2 
000 

125 X=6.5 : Y=2.3 : D=l : T=180 : GOSUB 
2000 

130 X=6 : Y=1.3 : D=0.5 : T=90 : GOSUB 



135 X-6.25 : Y=l.l : R=l.l : TS=50 : NS 
=9 : GOSUB 4000 

140 X=2.314 : Y=3.9 : D=3.5 : T=0 : GOS 
UB 2000 

145 X=2.414 : Y=3.714 : D=6 : T=90 : GO 
SUB 2000 

155 X=6.5 : Y=1.3 : D=2 : T=45 : GOSUB 
2000 

160 X=7.914 : Y=2.714 : 0=0.7 : T=0 : G 
OSUB 2000 

165 X=7.664 : Y=2.714 : R=l.l : TL=30 : 
TU=220 : GOSUB 1000 

180 X=8.698 : ¥=2.3378 : 0=0.85 : T=290 
: GOSUB 2000 

190 X=8.698 : Y=3.09 : D=0.85 : T=250 : 
GOSUB 2000 

193 X-8.214 i Y-1.7614 : l>0.85 : T=330 
: GOSUB 2000 

196 X=7.473 : Y=1.8 : 0=0.75 : T=10 : G 
OSUB 2000 

200 X=3.5L4 : Y=3.514 : R=2 : TL=-5 : T 
U=55 : CC=0 : GOSUB 1000 
210 X=3.514 : Y=3.514 : R=2 : TL=130 : 
Tt>230 : CC=0 : GOSUB 1000 
230 X=4.122 : Y=5.419 : 0=0.5 : T=198 : 
GOSUB 2000 

X=4.919 : Y=4.919 : 0=0.5 : T=225 : 
GOSUB 2000 

250 X=3.38 : Y=1.7 : 0=0.5 : T=3.85 : G 
OSUB 2000 

260 X=4.323 : Y=1.885 : 0=0. 5 : T=336 : 
GOSUB 2000 

X=2.468 : Y=1.81 : 0=0.5 : T=31.5 : 
GOSUB 2000 

500 PRINTS 10, "TRS-80 DRAFF I NG/G RAPH I C 

S DEMONSTRATION PROGRAM"; 

550 PRINTS 98, "DARREL L. BARTELHEIlvlER M 
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700 X=2.1 : Y=2.1 : R=2 : TS=20 : NS=13 

: GOSUB 4000 
800 FOR 1=0 TO 1000000 
805 NEXT I 

990 REM ********** 

991 REM 

992 REM ** THIS SUBROUTINE DRAWS ARCS 
R CIRCLES, 

993 REM ** WITH CENTER AT X, Y 

994 REM ** RADIUS OF R 

995 REM ** STARTING ANGLE TL 

996 REM ** ENDING ANGLE TU 



997 REM ** FLAG CC=1, CENTER POINT D 
RAWN, CC=0 OTHERWISE 

998 REM 

999 REM ********** 

1000 XS=12.7*X : YS=47-5.371*Y : RX=12. 
8*R : RY=5.371*R : SF=2.36455 : IF TL>T 
U THEN TU=TU+360 

1005 IF TL<0 THEN TL=TL+360 : TU=TU+360 

1010 IF CC=1 THEN S£T(XS+0.5,YS+0.5) 

1015 IF (TL <= 90 AND TU >= 90) OR TU > 

=450 THEN 1020 ELSE 1025 

1020 SET(XS+RX-f0.5,YS+0.5) 

1025 IF (TL <= 270 AND TU >= 270) OR TU 

>=630 THEN 1030 ELSE 1035 
1030 SET(XS-RX+0.5,YS+0.5) 
1035 IF (TL <= 180 AND TU >= 180) OR TU 

>= 540 THEN 1040 ELSE 1045 
1040 SET(XS+0.5,YS+RY+0.5) 
1045 IF (TL <= AND TU >= 0) OR TU >=3 
60 THEN 1050 ELSE 1055 
1050 S£T(XS+0.5,YS~RY+0.5) 
1055 FL=0 : F1=0 : YL=RY 
1100 FOR XX=1 TO RX 
1110 YY=RY*RY - 0.1761*XX*XX 
1112 IF YY<0 THEN YY=0 



PROPERTY MANAGEMENT SYSTEM PMS 

• Saves hours of Bookkeeping • Expense Ledger 



-1 



• Increases accuracy 
» J 00% User Support 
•100% Sotisfaction Guarantee 

• Income Statement 

• Vacancy Report 



• Tenant History 

• Auto Late Charge 
•Bar Charts & Graphs 

• Up to 800 Units 

• Simple to Use 



For TRS-80 Model I & III 32K 1 Disk minimum. 
Only $169.95 on Diskette, Complete with User's 
Manual. 

LOAN AMORTIZATION PROGRAM 
Print or display an Amortization Schedule for a 
given mortgage contract. Perfect for Real Estate 
investors. 

For TRS-80 Model I III and Color Ext Basic 16K 
Only $13.95 on Tape and $15.95 on Diskette. 

ARCADE &AD VENTURE GAMES 

Air War Nuclear Holocaust 

B-52 Strategic Bomber Raid on Entebbe 

Car Ware Space Colony 

F-15 Death Pilot Srect Fight 

Killer Satellite Submarine Attack 



For TRS-80 Model I III and Color Ext. Basic 16K 
Games only $11.95 on Tape and $13.95 on 
Diskette. # 1 3 

GO.D. orders add $2.50 

COMTRONiC SYSTEMS 
4028 Somerset Lane, Kent WA 98032 
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1114 YY=SQR(YY) 

1116 IF YL-YY>1 THEN YT=YY : YY=YL-1 : 

FL=1 : ELSE FL=0 

1118 TH=90-57.29578*ATN(SF*YY/XX) : T2= 

TH : IF (TL <= T2 AND TU >= T2) OR TU > 

= 360+T2 THEN 1120 ELSE 1125 

1120 SET(XS+XX+0.5,YS-YY+0.5) 

1125 T3=360-TH : IF (TL <= T3 AND TU >= 

T3) OR TU >= 360+T3 THEN 1130 ELSE 113 
5 

1130 SET(XS-XX+0.5,YS-YY+0.5) 
1135 T2=180-TH : IF (TL <= T2 AND TU >= 

T2) OR TU >= 360+T2 THEN 1140 ELSE 114 
5 

1140 SET(XS+XX+0.5,YS+YY+0.5) 
1145 T4=1804-TH : IF (TL<= T4 AND TU>=T 
4) OR TU>=360+T4 THEN 1150 ELSE 1160 
1150 SET(XS-XX+0.5,YS+YY+0 e 5) 
1160 IF Fl=l THEN GOTO 1600 
1175 IF FL=1 THEN YY=YY-1 ELSE GOTO 120 


1180 IF YY<=YT-1 THEN 1200 ELSE GOTO 11 
18 

1200 YL=YY 
1500 NEXT XX 

1550 IF F1=0 AND YY>0 THEN Fl=l : GOTO 
1118 

1600 IF YY>0 THEN YY=YY-1 : Fl=l 
1610 IF YY>0 THEN GOTO 1118 
1620 RETURN 

1990 REM ********** 

1991 REM 

1992 REM ** THIS ROUTINE DRAWS A STRAI 
GHT LINE, 

1993 REM ** STARTING AT X, Y 

1994 REM ** OF LENGTH (DISTANCE) D 

1995 REM ** AND ANGLE (IN DEGREES) 
F T (THETA) 

1996 REM 

1997 REM ********** 

2000 XS=12.7*X : YS=47-5.371*Y : T=0.01 

745329*T 

2010 DX=12.7*SIN(T)*D : DY=5.371*COS(T) 

*D 

2012 SS=0 

2014 IF (-.349<T AND ,349>T) OR T>5.934 
OR (2.51327<T AND 3.77>T) THEN 2100 E 

LSE 2015 

2015 K=DY/DX : IF K=0 THEN ST=1 ELSE ST 
= 1/K 

2017 IF ABS(ST)>1 THEN SS=1 ELSE SS=ABS 
(ST) 

2018 IF DX<0 THEN SS=-SS 
2020 SET(XS+0.5,YS+0.5) 

2040 FOR I=XS+1 TO XS+DX STEP SS 
2050 J=YS-K*(I-XS) 
2060 SET(I+0.5,J+0.5) 
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2062 NEXT I 

2064 RETURN 

2100 K=DX/DY : IF K=0 THEN ST=1 ELSE ST 

= 1/K 

2110 IF ABS(ST)>1 THEN SS=1 ELSE SS=ABS 

(ST) 

2120 IF DY>0 THEN SS=-SS 

2130 SET(XS+0.5,YS+0.5) 

2140 FOR I=YS+1 TO YS-DY STEP SS 

2150 J=XS~K*(I~YS) 

2160 SET(J+0.5,I+0.5) 

2170 NEXT I 

2180 RETURN 

2990 REM ********** 

2991 REM 

2992 REM ** THIS ROUTINE DRAWS ARCS W 
HERE 

2993 REM ** X,Y ARE COORDINATES OF 
CENTER 

2994 REM ** XL,YL ARE COORDINATES 
F START OF ARC 

2995 REM ** XU,YU DEFINE THE ANGULA 
R LENGTH OF THE ARC 

2996 REM ** THE ANGLES DO NOT HAV 
E TO BE GIVEN FOR THIS 

2997 REM ** ENTRY POINT. THE CENT 
ER IS NOT DRAWN 

2998 REM 

2999 rem ********** 

3000 CO0 : R=SQR((XL-X) [2 +(YL-Y) [2) : 
SF=2. 36455 : IF YL-Y=0 THEN TL=90 ELSE 
TL=57. 29578*ATN (SF* (XL-X) / (YL-Y) ) 

3010 IF XL-X <0 THEN TL=TL-180 

3020 IF YU-Y=0 THEN TU=0 ELSE TU=57.295 

78*ATN (SF* (XU-X) / (YU-Y) ) 

3030 IF XU-X <0 THEN TU=TU+180 

3035 TL=90-TL : TU=90-TU 

3040 GOTO 1000 

3990 REM ********** 

3991 REM 

3992 REM ** THIS SUBROUTINE DRAWS A WH 
EEL WITH SPOKES 

3993 REM ** X, Y ARE COORDINATES OF 
CENTER 

3994 REM ** R IS RADIUS 

3995 REM ** NS IS NUMBER OF SPOKES 

3996 REM ** TS IS ANGLE OF ONE OF TH 
E SPOKES 

3997 REM 

3998 REM ********** 

4000 TL=0 : TU=360 : COl : GOSUB 1000 

4050 D=R : T=TS : GOSUB 2000 

4100 TT=360/NS 

4150 FOR 11=1 TO NS-1 

4200 TS=TS+TT : T=TS : GOSUB 2000 

4250 NEXT II 

4300 RETURN m 




Mod IIS GRAFYX SOLUTION $299.95 #14 

• 512 x 192 Dot Graphics increases resolution 16 X (better than Apple) 

• Extensive Business, Personal, Educational, and Scientific applications 

• 14 BASIC commands set and reset Points, Lines, Circles, Boxes, etc. 
® Allows Display and Printout of detailed Line, Bar, and Pie graphs 

• 80 Character/line display compatible with BASIC programs and DOS 

• Price includes 98K bits memory, 30 programs, 52 page manual 

• Plug-in, clip-on board eliminates soldering for easy installation 
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Mod I, III 80-GRAFIX 5 $169.95 #« 

• Create and Save 128 programmable hi-resolution characters/shapes 

• Characters are generated within an 8 x 12 matrix (Mod I: 6 x 12) 

• Great for creating game figures, symbols, and alternate character sets 

• Excellent software support (20 programs) & extensive documentation 

• Module easily installs within the computer with no soldering 



Manual only $15 
Products guaranteed 
Dealers welcome 



Micro-Labs, Inc. 214-235-0915 

902 Pinecrest, Richardson, Texas 75080 



FREE shipping 

Prepaid or COD 

Tx. res add 5% 



September, 1982 29 




Two graphs 
Model 11/16 



Histograms and regression lines 
for your printer or video 

Model 11/ 16 



Mike Schmidt, Publisher 



Very little, in the way of graphics, has been seen for 
the Model II since it was released in late 1979. The 
absence of PEEK and POKE in the Model II BASIC has, 
no doubt, been responsible for at least, some of the 
dearth of graphics for that machine. 

Since no one seems to be doing graphics, we decided to 
do it ourselves. Two programs are presented here. The 
first, PLOT1, prints up to twenty items in a bar chart. It 
uses the Model II graphics in its display on the video 
screen. An option to lineprint on an 80-column or more 
printer is included. The line printer display is decidely 
different from that on the screen however. The 
command used in the Model II to cause the screen to 
print to the printer is SYSTEM "SCREEN." This 
command reads video memory and faithfully (up to a 
point) sends it to the lineprinter. In the TRSDOS 
system, all graphics characters are changed to periods 
when using SYSTEM "SCREEN." 

It still makes for a reasonably nice display, but the 
video display is preferable. 

The program PLOT1 (Listing 1), is largely self- 
evident. Remark statements precede most modules. The 
scale is set by the user prior to entering data. It should be 
just slightly larger than the largest value to be entered. 
Although it is possible to use any number for the scale, it 
may be preferable to stick to decades, i.e., 10, 100, 1000, 
to prevent cluttering the scale annotation above the 
graph. 

It is possible to name the plot by using the first item in 
this manner: ITEM.0. Vertical spaces between items 
may also be left by entering a value of (space), 0. To 
terminate entering items, enter 0,0. The input of items 
will terminate itself if the items exceed twenty. There is 
error trapping for item names over nine characters long 
and for values which exceed the user-entered scale 
value. Values less than zero are not used in this 
histogram, since they would not print. 

This program also works on a Model 16 operating 
under TRSDOS-II mode. In fact, it was created on a 
Model 16 and FCOPY was used to transfer it back to 
straight Model II. This is also true for the second 
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program, Listing 2, which follows. 

Listing 2 shows a different plot program for Model 
11/16. This program is designed to print only on a line 
printer. It requires a 132-character lineprinter, or 
printers like the Microline 80 or MX-80, which can be set 
to 132-character modes. 




Screen photo of PLOT1 . 

In Listing 2, PLOT2, the data is entered at the end of 
the program as DATA statements. One of the features of 
this program is that it automatically saves itself after 
each run. This is so that newly entered (or added to) data 
statements will be saved. 

Two additional features of this program are that the 
actual value of the data is printed (not scaled) to the 
right of the bar in the graph and the graph is followed by 
a three-period projection, also with values printed at the 
right. The values for the regression line are printed after 
the graph is completed. The scale factor for this 
program is not entered by the user, but is determined 
automatically by the program. The method used is to 
search the data statements for the largest value and 



Two graphs 



Figure 1 
Sample printer output from PLOT1. 
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then set the scale factor accordingly. Because of this, it 
is not a very presentable graph when widely varying 
values are used. For example, using all values in tens 
and then putting one value at 10000 would cause poor 
definition of all the lower values. 

Some program notes on Listing 2 are in order. Line 80 
clears about one-third of available memory. 

You can name your graph by entering that name in 
line 300. 

You can choose your own label in line 320. 

Starting at line 350, the program searches through the 
data items to find the highest number. It then sets 
variable Dl for the scale factor. 

Lines 360 and 420 allow for 1000 data items. This 
should be more than enough, but if you need more these 
two should be changed. The maximum number of data 
items is the limit of your memory. 

The variable Lin line 470 represents the length of the 
bar for the chart. The letter X is used to make the bar. 



Figure 2 
Sample run and output from PLOT2 program. 



HODEL 11/16 GRAPH PLOTTER WITH THREE PERIOD PROJECTS 
FOR USE yiTH 132 CHARACTER LINEPRINTER 



The data for this Prosraa aust be entered as DATA tines at the 
end of the prosra«. The fori of these DATA statements is! 

DATA LABEL, #### 
Hhere LABEL is a nase and t### is a numeric value. 

The very last DATA stateftent should contain a dusty label and a 
numeric value of -li like this* DATA ,-i 

The prosraw will automatically save itself after it is run 
to save DATA statements that has been entered or added to. 

Line up your printer paper and ENTER to continue 
? 

GRAPH NASE 



LABEL 

JAN 82 
FEB 82 
HAR82 
APR 82 
MAY 82 
JUN82 
JUL 82 
AUG 82 
SEP 82 
PROJ 
PR0J 
FROJ 



e 



1 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXJtXXXXXXX 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
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THE X I Y FOR THE REGRESSION LINE flREs 
Y= 3356.34 + 405.334 X 
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7409.67 

7815.01 

8220.34 
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Sw&dV&d... 



Buy 



Alpha Joystick and 



games together and deduct up 
to $14.00 from your order. 



version 

^I'lOwrn 
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The Alpha Joystick adds arcade-style control to 
TRS-80 action games. Simply plug it in and begin 
playing pystick compatible games No modification, 
wiring or batteries are required, and the Alpha Joy- 
stick is compatible with other TRS-80 accessories 
The instructions are clear and complete We even . 
show how easy it is to experiment in BASIC 
(A = INP(0> reads stick) and convert BASIC 
programs to Joystick control 

MODEL I ■ Plugs directly into any Level II Keyboard 
(card edge on rear) or expansion interface (left side 
next to printer port) 

MODEL III - Works with any Model III BASIC 
system and plugs into the 50 pin I/O bus (largest 
edge connector underneath ) 



M 
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ALPHA 
JOYSTICK 

Joystick + 1 game Deduct $ 6.00 
Joystick + 2 games Deduct $12.00 
Joystick + 3 games Deduct $14.00 



only $39.95 

MODEL I OR III SPECIFY WHEN ORDER 
ING PRICE INCLUDES ATARI JOYSTICK + 
ALPHA INTERFACE * INSTRUCTIONS + 
DEMO PROGRAM LISTING 

14 DAY MONEY BACK GUARANTEE - if you are not 
delighted, return it within 14 days lor a prompt and 
courteous refund. 

Choose from any of the Joystick Compatible games 
below Be sure to mention the "Sweet Deal" dis- 
count when ordering 
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PENETRAT0R 

Soar swiftly over jagged landscape, 
swooping high and low to avoid obsta- 
cles and enemy missile attacks With 
miles of wild terrain and tunnels to 
penetrate, you're well armed with 
bombs and multiple forward missile 
capability From Melbourne House 
Features sound, trainer mode and cus- 
tomizing program 
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SCARFMAN 
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This incredibly popular game craze now 
runs on your TRS-80! It's eat or be 
eaten You control Scarfman around the 
maze, gobbling up everything in your 
path Try 10 eat it all before nasty 
monsters devour you Excellent high 
speed machine language action game 
from the Cornsoft Group With sound 



*■■ nn ■ uf-tii 



. ■'Ifrj 



J 1 i 






•rttt "HP" 



* 



SUPER NOVA 

IttOifr ttodl Jrwnou&iv around II r 
^ rr tgii n I flesiro* me dsie 
ln*?uit? r " *-<> Sroy *ul.' 'ftiy dstertfidi 
i MtMh irii ■ ■ ji r tiiui snip am* 

ie^L.oni.1 tu W\\u*\ U>t.itti 'i.^^pd- E 

jnn vr WdUn Jul W tn.it *d\nw A-tn 



LUNAR LANDER 

i , - m\ i unit! it i 

' ■ , ■ ,- tf. f ■ 'Ii- 

, i. .1 r.'. ' ,- ii. i ri Mlii" iitti ■ ► 

Vmi t | ' M "1*1 " i-. 1 1 i- - mm! i 1 ' 

|r A | • j|Jtjt* J i, ni - ' -■ 

Ui]r- r i , i E i «ii ii 



« « ■ » « ■ 

* 3 ft 

■ > M 

■ tt 4 ■ ■ ■ 

> • 

, ■ * ■ ■ 



ATTACK FORCf 

ftSi y&ui irnip appedis on trit bottom ul 
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COSMIC FIGHTER® 
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GALAXY INVASION 
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DEFENSE COMMAND TALKING ROBOT ATTACK ARMORED PATROL 



The invaders are Datfe' Alone vou 0€ 
tend Ifie all importanl nuclear fuel B^n 
mster^i trorn ihievmg aliens wno aflack 
repeatedly An alten passes youi guard 

snatches Up a cannis p er ^na tlv& Slra^gfil 
oti Quick' you nave one lasi chance to 
Dlast hirn out of rne sky^ With sound and 
voice 



This game TALKS wilhoul a votes syn 
thesiver through The casse!Te pori With 
[US! a hano laser in a remote seciion o' 
Ihe soace statton you encounlei armed 
rosjots Some march towa r ds you more 
wait around com^ CareUif tne wanas 
are e^ect^l^leo Zap as many robots as 
yon nare Defore escaping ro a new m 
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A realistic tank name simulation Your 
view rs d 3-D perspective of At\ arien 

innoscape Manuevef your I 3C tank to 
locale and desiroy enemy tanks and 
ronots thai "ay nidOen ready lo assail 1 
you Cievef graphics creale tht* iNusion ot 

movement and drmension From 
Adveniute inTefnannn^i With sound 
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GAME PRICES 

■Penetratof Disk or 2 Cassette Package S24.95 

■Armored Patrol Cassette 119 95 Disk $24 95 

ALLOTHERGAMES 

16K Level 2, Model 1 + Model 3 Cassetie Ji5 95 

32K Level 2„ModeM + Model 3 DrSkelte $19.95 

These games are Atpha Joystick Compatible 
They mav be played wilh or without Joystick 
(using arrow keys) 

Toll Free Order Line 
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•221-0916 



Mb ALPHA 

79-04 Jamaica Ave., Woodhaven. NY 11421 



(212) 296-591 



OHOERS ONLY HOURS 9 AM 5 30 PM E S T 
FOR INFO CALL i212» 296 5916 

ADD $2 OO PER ORDER FOR SHIPPING AND HANOLING 

WE ACCEPT VISA MASTERCARD CHECKS M O 

C O D ADD S3 00 EXTRA ^^^ 

NY RESIDENTS ADD SALES TAX CSE^^^ 

OVERSEAS FPO APO ADD 10 \ ^^^5( 

OEALER DISCOUNTS AVAILABLE 
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Two graphs 



You can substitute any other letter or number here if you 
like. 

The data statements are read for a third time in line 
510 to establish the trend line. 

The values for the regression line are calculated 
starting at line 590. The three-period projection is 
figured starting at line 610. 

Line 640 prints the projected values, using the small 
letter "o" to make the bar. Again, you may choose 
whatever you like here. 

After your chart is printed, you can run a straight line 
through the last three o's and see your trend line. 

We have found these plots both useful and fun to use. 
Try them, they are both short and easy to type in. 



Listing 1 

PLOT1 



(C) 1982 



30 REM 
40 REM 
50 REM 
60 REM 



10 REM PROGRAM NAME IS PL0T1: 

80-NW PUBISHING INC. 

20 REM ******************************** 

* * 

* VARIABLE SCALE GRAPH PLOTTER * 

* FOR MODEL 11/16 WITH * 

* 80 COL PRINTER AND VIDEO * 
65 REM ******************************** 

70 CLS:CLEAR200:DIMN$(24),X(24) 

80 PRINT STRING$(79,"_") 

90 PRINT 

100 PRINTTAB( 17); "MODEL 11/16 GRAPH PLO 

TTER FOR UP TO 20 ITEMS" 

110 PRINTTAB(20);"FOR USE WITH/WITHOUT 

80-COLUMN PRINTER" 

120 PRINT STRING$(79,"_") 

130 PRINT: PRINT 

140 PRINT"YOU CAN ENTER UP TO 20 DIFFER 

ENT NAMES AND ITEMS . FOR INSTANCE:" 

150 PRINT"ENTER A LABEL NAME, FOLLOWED 

BY A COMMA, THEN THE VALUE." 

160 PRINT 

170 PRINT"MAX SCALE VALUE IS A NUMBER L 

ARGER THAN THE LARGEST VALUE TO BE ENTE 

RED." 

180 PRINT 

190 PRINT"ENTER 0,0 TO END INPUT OF ITE 

MS." 

200 PRINT 

210 INPUT"ENTER A ' 1' NOW IF YOU WANT T 

HE GRAPH TO DUMP TO THE PRINTER, IF NOT 

, JUST PRESS ENTER" ;AA 

220 PRINT" USE THE <BREAK> KEY TO EXIT T 

HE GRAPH." 

230 REM • INPUT SCALE, 

NAMES AND VALUES 

240 PRINT: INPUT"MAXIMUM SCALE VALUE ";S 

:S=S/100 

250 CLS: PRINT: FOR Z =2 TO 21 



260 PRINT"ITEM #";Z-1; : INPUT" - NAME, V 

ALUE ";N$(Z),X(Z) 

270 IF LEN(N$(Z))>9 THEN PRINT"NAMES LI 

MITED TO 9 CHARACTERS ":GOTO260 

280 IF X(Z)>100*S THEN PRINT"VALUES LIM 

ITED TO A MAXIMUM OF"; 100*S:GOTO260 

290 IF N$(Z)="0" THEN Z=Z-1:GOTO310 

300 NEXTZ 

310 REM ANNOTATE TOP 

OF GRAPH 

320 CLS 

330 FORI=0TO50STEP5 

340 PRINT@I+10,INT(20*I*S)/10 

350 NEXTI 

360 REM DRAW TOP 

LINE OF GRAPH ■— — 

370 FORI=0TO62 

380 PRINTCHR$(152); 

390 NEXTI 

400 REM PRINT NAME 

S AND VALUES — 

410 S=S*2 

420 FORI=0 TO Z 

430 PRINT@I*80,N$ (I) ; :PRINT@I*80+12,STR 

ING$(X(I)/S,CHR$(150)) 

440 NEXTI 

450 REM --DRAW THE VERTI 

CAL LINES - — -~ 

460 FORI=2T022 




IS THIS YOU? 



You know you saw their ad in one of those magazines stacked in the corner... but which one? 
You are ready to buy their hard/soft Thing-a-magig, but how are you going to find them? 
What can you do? 

THE COMPUTERIST'S DIRECTORY YELLOW PAGES is the one national reference to 
companies [large and smatt] and individuals producing and selling the hardware, software, 
services and supplies that you need. Extensive indexing and cross referencing by product 
makes it easy to find what you are looking for in the personal and small business field. 

THE COMPUTERIST'S DIRECTORY WHITE PAGES list Individuals, Clubs, Associations 
and Bulletin boards including network LD. Numbers [Source, CompuServe etc] and a short 
description of their interests and projects. Find people and clubs who share your interests. 
Form local and national networks. And if your computer nomenclature is rusty... Just check 
with the Glossary included in each issue. All from the Computerist's Directory White Pages! 
THE COMPUTERIST'S DIRECTORY is published twice each year. A one year subscription 
costs just $10,00 and includes a free listing in the White Pages and two issues of the 
Directory, one in January and one in July. It's the best investment you'll make this year! 

YOU ONLY HAD TO LOOK IN ONE PLACE! 



The National Phone Booh ol Computing 



the 
Computerist's pobox4os 

Directory forestville, ca 95436 



(707) 887-1857 
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Two graphs 



470 PRINT@I*80+11,CHR$(139) 
480 PRINT@I*80+24,CHR$(124) 
490 PRINT@I*80+37,CHR$(124) 
500 PRINT@I*80+49,CHR$(124) 
510 PRINT@I*80+62,CHR$(137) 
520 NEXTI 

530 REM — ~ CLOSE 60 

TTOM WITH LINE 

540 PRINT@1760,STRING$(62,CHR$(150)) 
550 REM PRINTER OPTION ~ 

560 IF AA=1 THEN SYSTEM "SCREEN" 
570 GOTO570 



Listing 2 
PLOT 2 

5 REM LINE NUMBERS ENDING IN 5 NEED NOT 
BE TYPED IN, USE AUTO 

10 REM PROGRAM NAME IS: PL0T2 : (C) 198 
2 80-NORTHWEST PUBLISHING INC. 
20 REM ******************************** 

30 REM * * 

40 REM * MOD 11/16 GRAPH PLOTTER * 
50 REM * WITH PRINTER AND THREE * 
60 REM * PERIOD PROJECTION * 
62 REM ******************************** 

65 REM THE NEXT LINE IS TO SET SOM 

E PRINTERS, DELETE IF YOU DON'T NEED IT 
• 

70 LPRINTCHR$(29):REM SETS MICROLINE 

80 PRINTER TO 132 CHAR MODE 
75 REM • CLEARS ABOUT ONE THIRD OF M 

80 CLEAR (2*MEM)/3 

85 REM SET FORMS ON YOUR LINE PRIN 

90 SYSTEM "FORMS {P=66,L=66,W=132} 
100 CLS 

105 REM PRINT HEADING AND INSTRUCTI 

ONS ON VIDEO SCREEN ■ 

110 PRINTSTRING$(79,"_") 

120 PRINT 

130 PRINTTAB(10);"MODEL 11/16 GRAPH PLO 

TTER WITH THREE PERIOD PROJECTION" 

140 PRINTTAB(20);"FOR USE WITH 132 CHAR 

ACTER LINEPRINTER" 

150 PRINTSTRING$(79,"_") 

160 PRINT 

170 PRINT 

180 PRINT"The data for this program mus 

t be entered as DATA lines at the" 

190 PRINT" end of the program* The form 

of these DATA statements is:" 

200 PRINT" DATA LABEL, ####" 

210 PRINT"where LABEL is a name and ### 

# is a numeric value." 
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220 PRINT 

230 PRINT"The very last DATA statement 

should contain a dummy label and a" 

240 PRINT" numeric value of -1, like thi 

s: DATA ,-1" 

250 PRINT 

260 PRINT"The program will automatical! 

y save itself after it is run" 

270 PRINT" to save DATA statements that 

has been entered or added to." 

280 PRINT 

290 PRINT"Line up your printer .paper an 

d ENTER to continue": INPUT; 

295 REM YOU CAN PUT YOUR OWN GRAPH 

NAME IN THE NEXT LINE 

300 LPRINTTAB( 40); "GRAPH NAME" 

310 LPRINT" " 

315 REM YOU CAN PUT YOUR OWN LABEL 

(9 CHARS OR- LESS) IN THE NEXT LINE — 
320 LPRINT"LABEL"; :LPRINTTAB(10) ;"0";TA 
B(20);"1";TAB(30);"2";TAB(40);"3";TAB(5 
0) ;"4";TAB(60) ;"5";TAB(70) ;"6";TAB(80) ; 
"7";TAB(90);"8";TAB(100);"9";TAB(110);" 
1" 

330 :LPRINTTAB(10);"i";TAB(15);"i";TAB( 
20);"!";TAB(25);"!";TAB(30);"i";TAB(35) 
;"!";TAa(40);"!";TAB(45);"i";TAB(50);"! 
";TAB(55);"!";TAB(60);"!";TAB(65);"!";T 
AB(70);"!";TAB(75);"!";TAB(80);"!";TAB( 
85);"!";TAB(90);"!";TAB(95);"!";TAB(100 

it 'i 

340 LPRINTTAB(105);"!";TAB(110);"«" 
345 REM - — FIND THE HIGHEST DATA VALUE 

SO YOU CAN SET THE SCALE 

350 D2=0 

360 FORJ=1TO1000 

370 READA$,D:IFD=-1THEN GOTO 410 

380 IFD>D2 THEN D2=D 

390 IFD2<100 THEN Dl=l ELSE IF D2<1000 

THEN Dl=10 ELSE IF D2<10000 THEN Dl=100 

ELSE IF D2< 100000 THEN Dl=1000 
400 NEXTJ 

405 REM RESTORE THE DATA FOR THE N 

EXT READING OF IT 

410 RESTORE 

415 REM READ THE DATA, SCALE IT AN 

D PRINT IT OUT 

420 FOR J = 1 TO 1000 

430 READ A$,D 

440 IF D= -1 THEN GOTO 500 

450 C=C+1 

460 L=(D/D1)+1 

470 LPRINTA$;TAB(10) ;STRING$ (L,"X") ;TAB 

(120) ;D 

480 NEXTJ 

490 END 
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500 RESTORE 

505 REM READ THE DATA AGAIN FOR TH 

E TREND LINE — 

510 ,FOR J = 1 TO C 

520 Q=J 

530 READ A$,D 

540 R=R+D 

550 S=S+Q 

560 U=U+Q*D 

565 REM USE THE 'SHIFT 6' KEY TO G 

ET THE CARET (RAISE TO A POWER) - 

570 T=T+Q~2 
580 NEXT J 

585 REM FIGURE THE VALUES FOR THE 

REGRESSION LINE ■ 

590 Y=(T*R-S*U)/(C*T-S"2):REM USE 'SHIF 
T 6' FOR THE CARET (RAISE TO A POWER) 
600 X=(C*U~S*R)/(C*T-S A 2) 

605 REM FIGURE THE THREE PERIOD PR 

OJECTION AND PRINT IT ■— 

610 FOR F = C+l TO C+3 

620 F1=Y+X*F:IF Fl <=0 THEN PRINT"CAN'T 

PRINT NEGATIVE NUMBERS": GOTO 720 
630 L=(F1/D1)+1 

640 LPRINT"PROJ";TAB(10) ;STRING$ (L,"o") 
;TAB(120);F1 
650 NEXT F 
660 LPRINT" " 

665 REM PRINT THE VALUES FOR THE R 

EGRESSION LINE • 

670 LPRINT"THE X & Y FOR THE REGRESSION 

LINE ARE:" 
680 LPRINT"Y=";Y;"+";X;"X" 
685 REM GIVE THE PRINTER A 'TOP OF 

FORM' COMMAND 

690 SYSTEM "FORMS T" 

695 REM SAVE THE PROGRAM ON DRIVE 

700 PRINT"Now saving program on drive 
n 

710 SAVE"PLOT2:0" 

720 PRIMIDONE" 

730 END 

735 REM HERE IS WHERE YOU PUT YOUR 

DATA STATEMENTS - THOSE HERE ARE FOR 

SHOW ONLY. YOU CAN HAVE AS MANY 

AS THERE ARE SPACE FOR IN MEMORY. 

740 DATA JAN 82, 3200 
750 DATA FEB 82, 3850 
760 DATA MAR 82, 4329 
770 DATA APR 82, 5560 
780 DATA MAY 82, 6430 
790 DATA JUN 82, 6028 
800 DATA JUL 82, 6500 
810 DATA AUG 82, 6340 
820 DATA SEP 82, 6210 
830 DATA ,-1 H 



TRS-80* Model III 



Hardware & 
Software 
at discount 
prices. 




ACORN SOFTWARE Sug. List. 

Astro Ball (T or D) 19.95 

Everest Explorer (T or D) 19.95 

Invaders From Space (T) 14.95 

Lost Colony (T or D) 19 95 

Money Manager (D) 39.95 

Space Rocks (T or D) 19 95 

Superscript (D) 50.00 

ADVENTURE INTERNATIONAL 

Adventures 1 thru 12 (T) each 19.95 

Escape From Traam (T) 19.95 

Maxi Manager (D) 99.95 

Star Fighter (T) 24.95 

Star Trek 3.5 (T) 14.95 

Stone of Sisyphus (D) 29.95 

The Curse of Crowley Manor (T) 19.95 

AUTOMATED SIMULATIONS 

Crush , Crumble & Chomp (T or D) 29 95 

Date Stones of Ryn (T or D) 19 95 

Rescue At Rigel (T or 0) 29 95 

Star Warrior (T or D) 39 95 

Tuesday Morning Quarterback (0) 29 95 

BIG FIVE SOFTWARE 

Attack Force (T) 15 95 

Galaxy Invasion (T) 1 5 95 

Meteor Mission 2 (T) 15 95 

Robot Attack (T) 15 95 

Super Nova (T) 1 5 95 

BR0DERBUND SOFTWARE 

Galactic Empire (T) 14 95 

Galactic Revolution (T) 14 95 

Galactic Trader (T) 14 95 

Galactic Trilogy (D) 39 95 

Tawala's Last Redoubt (T) 19 95 

THE C0RNS0FT GROUP 

Scarfman (C) 15 95 

DATAS0FT 

Arcade - 80 (T) 19.95 

HAYDEN SOFTWARE 

Sargon II (D) 34.95 

MED SYSTEMS 

Asylum (T) 14 95 

Asylum (0) 19.95 

Deathmaze 5000 (T) 14 95 

Labyrinth (T) 14 95 

MICROSOFT 

Adventure (D) 29.95 

Olympic Decathlon (T) 24.95 

RADIO SHACK 

26-2204 Compiler Basic (D). . . .' 149.00 

26-1552 General Ledger (D) 99.95 

26-1553 Inventory Control I (D) 99.95 

26-2014 Model III Disk Course (D) 29 95 

26-1596 Model III Visicalc (D) 199 00 

26-1556 Payroll ( D) 199 95 

26-1592 Profile III Plus (D) 199 00 

26-1590 Super Scripsit (D) 199.00 

STRATEGIC SIMULATIONS 

Tigers In The Snow ( T) 24 95 

SYNTONIC SOFTWARE 

Interlude (T) 18,95 

(T) = Cassette Tape (D) = Disk 



Our Price 

15.95 
15.95 
11.95 
15.95 
31.95 
15.95 
40.00 

15.95 
15.95 
79.95 
19.95 
11.95 
23.95 
15.95 

23.95 
15.95 
23.95 
31.95 
23.95 

12.75 
12.75 
12.75 
12.75 
12.75 

11.95 
11.95 
11.95 
31.95 
15.95 



27.95 

11.95 
15.95 
11.95 
11.95 

23.95 
19.95 

119.20 

79.95 

79.95 

23.95 

155.00 

155.95 

155.00 

155.00 

19.95 

15.15 



REPRESENTING OVER 20+ COMPANIES WITH 300 + 
PROGRAMS AND HARDWARE. 

WRITE FOR FREE MODEL II, III OR COLOR COMPUTER CATALOGS TO: 

Computer House 

P.O. Box 538, Mammoth Lakes, CA 93546 
(714) 934-6538 

Terms: FOR FAST DELIVERY, send certified checks, money orders or Visa or, MasterCard number 
and expiration date. Personal checks require 3 weeks to clear. ADD $1.50 for postage. Orders 
over $100 we pay shipping. All foreign orders add $10. CALIFORNIA residents add 6% tax. Prices 
sub|ect to change. 

* TRS-80 is a trademark of Tandy Corp. 
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A whole new generation of Epson MX printers 
has just arrived. And while they share the family 
traits that made Epson famous — like unequalled 
reliability and ultra-fine printing — they've got a 
lot more of what it takes to be a legend. 

For instance, they've got a few extra type styles. 
Sixty-six, to be exact, including italics, a handy 
subscript and superscript for scientific notation, 
and enough international symbols to print most 
Western languages. 
36 80-U.S. Journal 



What's more, on the new-generation MX-80, 
MX-80 F/T and MX-100, you get GRAFTRAX- 
Plus dot addressable graphics. Standard. So now 
you can have precision to rival plotters in a reli- 
able Epson printer. Not to mention true back- 
space, software printer reset, and programmable 
form length, horizontal tab and right margin. 

All in all, they've got the features that make 
them destined for stardom. But the best part is 
that beneath this software bonanza beats the 



Uh...three legends. 



heart of an Epson. So you still get a bidirectional, 
logical seeking, disposable print head, crisp, 
clean, correspondence quality printing, and the 
kind of reliability that has made Epson the best- 
selling printers in the world. 

All of which should come as no surprise, espe- 
cially when you look at the family tree. After all, 
Epson invented digital printers almost seventeen 
years ago for the 1964 Tokyo Olympics. We were 



the first to make printers as reliable as the family 
stereo. And we introduced the computer world 
to correspondence quality printing and dispos- 
able print heads. And now we've given birth to 
the finest printers for small computers on the 
market. 

What's next? Wait and |— nQAkl 
see. We're already uo mZmJr\i\Jmw 
expecting. 
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EPSON AMERICA, INC. 

3415 Kashiwa Street • Torrance, CA 90505 • (213) 539-9140 



FEATURE 



ORIGINAL 

MX-80 



ORIGINAL 
GRAFTRAX-80* MX-100 



MX-80 MX-80 F/T MX-100 
with GRAFTRAX-Plus 



Bidirectional printing 



Logical seeking function 



Disposable print head 
Speed: 80 CPS 



Matrix: 9x9 



Selectable paper feed 



PAPER HANDLING FUNCTIONS 

Line spacing to n/216 



Programmable form length 

Programmab le horizontal tabs 

Skip over perforation 

PRINT MODES AND CHARACTER FONTS 



96 ASCII characters 



Italics character font 



Special international symbols 



Normal, Emphasized, Double-Strike 
and Double/Emphasized print modes 



Subscript/Super script print mode 



Underline mode 



10CPI 



5CPI 



17.16 CPI 



8.58 CPI 



DOT GRAPHICS MODE 



Line drawing graphics 



Bit image 60 D.P.I. 



Bit image 120 D.P.I. 



CONTROL FUNCTIONS 



Software printer reset 
Adjustable righ t margin 
True back space 



INTERFACES 



Standard — Centr onics-style 8-bit parallel 
Optional — RS-232C current loop w /2K buffer 



RS-232C x-on/x-off w/2K buffer 



IEEE-488 



•Tandy TRS-80 block graphics only available with GRAFTRAX 80. 

ABCDEFGHJ: JKLMM abcde-f qhi j klmn tiBCBEF&ttl JKLMN ahcdefghi <kl i»r>#1 ?^A 
5SEHIE2. H .I JKL|V|N abcde-f ghi j klmnABCDEFGHIJKLMNahcdef'qhi 'jkl mn 01234 
5?CD|FGHIJKLMNabcdef ghi jklmnfiBCDEFGHIJHLMNabcdefghiJklmn 01234 
ABCDEFabcde-f & IB C &£*?*&£><= <**=> *"<& ± 2345£» 
ABCDEFEHIJKLMNDFQRSTUVWXabcdetqhi t kl flinopqrstuvwK PFCF£f 6/r7JA'Lff^gPagS7^t/y.J? a&cdtfgr/i yUgnof.gr5tti{/wx01234567 
ABCDEFa bcde-f^gCZ?£/ r afc.ctfe- aTgf ± ZS^g^ 

ABCDt!.FSHI.JKLMN«bcci»*ghi j kl mnflSCOEf »WT,7Ki.WN*ftcd#f ft t sA I mrtiVl V^LI 
ABCDEFOHIOKLHNOPORSTUVWX.bcd.fghijM.nopqr.tuvwK™^ 
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Color Computer 
assembler/disassembler 

Get inside your 6809E 



Color Computer 



Richard Tangeman, Arkansas State University, AK 



The 6809E Assembler in BASIC 

The 6809E is one of the most modern and powerful 8- 
bit microprocessors, Because of its 16-bit index register, 
dual stacks, and well-chosen instruction set, it is 
probably easier to program than either the Z-80 or 6502. 
In order to explore these features, I decided to write an 
assembler in BASIC for my 16K Color Computer, The 
results of my effort appear here. 

The full instruction set and all addressing modes are 
supported, along with some handy pseudo-ops. In order 
to save memory, the assembler itself has very fancy 
features, but symbolic addresses and forward 
references are supported. A small but adequate source 
language editor is included, along with routines to save 
source code on tape and load it back into memory. Once 
a program is assembled, the binary output of the 
assembler may be loaded into memory and executed. 

The standard 6809E instruction set consists of 139 
different mnemonics, most of which can be used with 
several different addressing modes. After the assembler 
is correctly typed in and saved to tape, run the program 
and hit BREAK in response to the first input prompt. 
Then execute from the direct mode: 

FOR K = 1 TO 139:PRINT K,LEFT$(MN$(K),4): NEXT 
K 

This displays to the screen the available mnemonics. 
They are all standard except that ANDC is used instead 

of ANDCC. 

Operands 

Where operands are present, the object code output of 
the assembler depends heavily on operand format. 
Table 1 lists these formats and every operand should 
match one of these exactly. The assembler depends on 
operand lengths in particular, so be sure not to add any 
blanks. In Table 1, ** denotes any two-character 
hexadecimal constant and **** denotes a four-character 
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hexadecimal constant or svmbolic address (more on 
symbolic addresses later). W denotes any of the 16-bit 
registers S, Y, U or S. Where indirection is allowed, the 
operand may be optionally enclosed in square brackets. 
The allowable operands for transfer and exchange 
instruction are all three characters long. Legal types 
are: M,N where each of M and N is one of the 8-bit 
registers A, B, C or Z; (C is the condition code register 
and Z is the direct page register) and V,W where each of 
V and W is one of the 16-bit registers D, X, Y, U, S, P. The 
operand for a push or pull instruction may be a single 
register or a list of registers separated by commas. D 
may not be used since it is really a pseudoregister. 
Instead of U or S, use the symbol I . Thus instead of 
PULS D,U we would use PULS A,U, I . The order in 
which the registers appear is not important. Notice that 
the operand length would always be odd in this case. 

Symbolic Labels 

Any line may carry an optional label. Where present, 
a label must be exactly four characters long. The first 
character must be alphabetic and not a legal hex digit 
(G - Z). The other three characters should be 
alphanumeric (0 - 9 or A - Z). Isabels are used to provide 
symbolic addresses and word constants, and any four- 
character hex constant in an operand may be replaced 
with a four-character symbolic label. (The DATA 
statement is an exception to this.) 

Pseudo-ops 

There are three pseddo-ops in addition to END. They 
are: EQU, ORG and DATA. These appear in the 
mnemonic field, and all require operands, EQU is used 
to set up symbolic word constants and (normally 
external) addresses. Thus instead of using JSRAlCl, we 
could declare a symbolic address: GRAB EQU AlCl 
followed at some later point in the program by JSR 
GRAB. A statement of the form LDX #GRAB would also 
be legal. All EQU statements should appear at the 
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beginning of the program. 

ORG sets the location counter, and usually would 
appear just once, after the EQU statements. Its operand 
is a four-character hexadecimal address, either a hex 
value or a previously defined symbolic location. The 
DATA pseudo-op provides a way to load ASCII or hex 
values at any desired location. It requires an operand, 
which may be either a string of ASCII characters 
enclosed by single quotes (apostrophes) or a string of 
hexadecimal characters having even length. Thus 
DATA 'ABC and DATA 414243 would have exactly the 
same effect: loading 3 bytes starting at the present 
location. As usual, it is the responsibility of the 
programmer to keep data out of the line of execution. 

The END statement must appear exactly once in a 
program, in the last line. It should not have a label, and 
must have an operand. The operand should be a four- 
character address, hex or symbolic. This address 
defines the starting address for execution after the 
program is assembled and loaded, and need not be the 
physical beginning of the program. Table 2 provides 
examples of correct usage of all the pseudo-ops. It is a 
simple program which prints a message to the center of 
the screen. 

The Editor 

To type in a program, RUN the assembler. You will be 
prompted three times for each line: label, mnemonic and 
operand. If a field is to be blank, just hit ENTER to get 
the next prompt. The input routine will loop until it 
receives END in the mnemonic field, at which point it 
asks for the final operand and then enters a keyboard 
scan routine. A description of the function of each of the 
several active keys follows. 

L: — Lists the program. If it is longer than 15 lines, 
you will need to use shift @ to interrupt the list. 

CLEAR: — Clears the screen. 

D: — Prompts for a line number and then deletes 
that line. 

R: — Prompts for a line number and then allows 
replacement of any one of the three fields for that line. 

I: — Prompts for a line number and then inserts a 
blank line (three blank fields) after that line. 

M: - Executes PRINT MEM. 

T: — Enters a tape routine, which allows saving the 
present program or loading a previously saved one. 
Prompts are provided. 

A: — Assembles the program. The object codes are 
loaded into a string array OC$(I). If there are forward 
references, the assembler will so indicate, possibly with 
an error message, but it will keep assembling in order to 
complete the symbol table. In this case, error or not, just 
assemble again. If there are no other problems, the 
second assembly should be complete and correct. 

O: — Lists the opcodes and symbol table. Shift @ 
may be needed: 

P: — POKEs the machine code into memory for 
execution. 

E: — Executes the program via a USR call. Thus the 
logical end of your program should normally be RTS, 
returning control to the keyboard scan routine. 

If your program is long, it is probably worth saving to 



tape before execution is attempted. A number of bad 
things can happen when running machine language, 
and the assembler may not catch all errors. 

Memory Management 

String space, graphics pages and array sizes are 
declared in line 5. 

If your program is longer than 50 lines, you will need 
to increase the sizes of all the arrays and probably 
declare more string space. The PCLEAR3 may be 
changed to PCLEAR2 or PCLEAR1 with a gain of 1.5K 
of space for each graphics page given up. You may wish 
to give up the M and CLEAR commands of the monitor 
by deleting the appropriate lines. There are a few 
comments which can be removed. It is also possible to 
save a little space by renumbering very tightly, i.e. 
RENUM 1„1. 

Table 1 



OPERAND 


LENGTH 


DESCRIPTION 




EXAMPLE INDIRECTION 


ft** 


3 


byte immediate 


IDA 


#5A 


no 


#**** 


5 


word immediate 


LDY 


#A000 


no 


** 


2 


direct page 


DEC 


B3 


no 


**** 


h 


extended 


TST 


0620 


yes 


+**,W 


5 


5-bit offset 


STB 


+0C.U 


no 


-**,tf 


5 


5-bit offset 


CMPY 


-03 ,X 


no 


,W+ 


3 


postincrement 


LDB 


,x+ 


yes 


,w++ 


h 


postincrement by 2 


STB 


,Y++ 


yes 


,-w 


3 


predecrement 


LSR 


,-S 


yes 


,— w 


h 


predecrement by 2 


CLR 


,— X 


yes 


>w 


2 


simple . index 


IDA 


,x 


yes 


A,W 


3 


accumulator offset 


STB 


A,Y 


yes 


B,W 


3 


accumulator offset 


IDA 


B,X 


yes 


D,W 


3 


accumulator offset 


STY 


D,X 


yes 


*»,W 


U 


8-bit offset 


STB 


23,Y 


yes 


**** y 


6 


16-bit offset 


IDX 


123B.Y 


yes 


**,FCR 


6 


8-bit offset 


IDA 


23.PCR 


yes 


****,PCR 


8 


16-bit offset 


IDX 


123U.PCR 


yes 



Table 2 
Sample program using the Assembler 



1 


MIDL 


EQU 


050D 


2 




ORG 


0600 


3 




DATA 


'ABCDEF' 


4 




DATA 


00 


5 


STRT 


LDX 


#MIDL 


6 




LDY 


#0600 


7 


MORE 


LDA 


,Y+ 


8 




TSTA 




9 




BEQ 


QUIT 


10 




STA 


,x+ 


11 




BRA 


MORE 


12 


QUIT 


RTS 




13 




END 

Listing 1 for 
Assembler 


STRT 



5 PCLEAR3:CLEAR500:S=50:DIM L$(S),M$(S) 
,0$ (S) ,AD(S) ,0C$ (S) :GOSUB445:I=0:R$="DX 
YUSPABCZ ,, :N$="01234589AB":S$="CABZXY~P" 
10 I=I+1:INPUT"LBL";L$(I) : INPUT"MNE";M$ 
(I) :LINEINPUT"OPD? n ;0$ (I) 
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15 IFM$(I)="END"THENN=I:ELSE10 

20 X$=INKEY$:IFX$="L"THEN70 

25 IFX$=CHR$(12)THENCLS 

30 IFX$="M"THENPRINTMEM 

35 IFX$="E"THENE=USR1(0) 

40 IFX$="I"THEN85 

45 IFX$="O"GOSUB620 

50 IFX$="P"GOSUB770 

52 IFX$="T"THEN910 

55 IFX$="D"THEN105 

60 IFX$="A"THEN160 

65 IFX$="R"THEN120ELSE20 

70 F0RI=1T0N 

75 PRINTI;TAB(3)L$(I)TAB(9)M$(I)TAB(14) 

0$(I)TAB(21)0C$(I) 

80 NEXTI:GOTO20 

85 INPUT"AFTER\«K:N=N+1 

90 F0RQ=N+1T0K+1STEP-1 

95 L$ (Q) =L$ (Q-l) :M$ (Q) =M$ (Q-l) -.0$ (Q) =0$ 

(Q-D 

100 NEXTQ:L$(K+1)="":M$(K+1)="":0$(K+1) 

="":GOSUB155:GOTO20 

105 INPUT" #";K:F0RI=K TON 

110 L$ (I) =L$ (1+1) :M$ (I) =M$ (1+1) :0$ (I) =0 

$(I+D 

115 NEXTI:N=N-1:GOSUB155:GOTO20 

120 INPUT" #";K 

125 PRINT"L M 0" 

130 X$=INKEY$:IFX$=""THEN130 

135 IFX$="L"THENPRINTL$ (K) : INPUTL$ (K) 

140 IFX$="M"THENPRINTM$ (K) : INPUTM$ (K) 

145 IFX$="0"THENPRINTO$(K) sLINEINPUT"?" 

;0$(K) 

150 GOSUB155:GOTO20 

155 F0RI=1T0 N : 0C$ (I )="":NEXTI: RETURN 

159 REM ASSEMBLE 

160 GOSUB155:FORI=lTON-l:PRINTI; 

170 M$=M$ ( I ) % 0$=0$ ( I ) : 0C$=" " : LO=LEN (0$ ) 
:PB=0 

180 IFM$="ORG"ORM$="EQU"THENGOSUB725:AD 
(I)=VAL("&H"+Q$) 2GOT0435 

181 IFM$<>"DATA"THEN185 

182 IFASC (0$) <>39THENOC$ (I) =0$:GOT0185 

183 F0RQ=2T0LOl :0C$ (I) =0C$ (I) +HEX$ (ASC 
(MID$(0$,Q,1))):NEXTQ 

185 AD(I)=AD(I-l)+ e 5*LEN(0C$(I-l)) 

186 IFM$="DATA"THEN435 

190 IFM$="TFR"ORM$="EXG"THEN825 

195 IF LEN(M$)=3 THEN M$=M$+" " 

200 FOR J=l TO M 

205 T$=LEFT$(MN$(J),4) 

210 IFT$OM$THEN220 

215 T$=MN$ (J) :LT=LEN(T$) :GOT0225 

220 NEXTJ:GOTO440 

225 IF ASC(T$)=80 THEN865 

230 GOSUB600:REM PREBYTE 

235 IF LO=0 THEN245 
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240 GOSUB 565jIF 11=1 OR CP>0 THEN 280: 

REM INDEX/INO 

245 IF LT>6 THEN 255 

250 0C$ (I) =RIGHT$ (T$,2) +MID$ (0$,2) :GOTO 

425 
255 IFL0=3 OR L0=5 THENBP=5:L0=L0-1 :GOT 
0270 

260 IFLO=2THENBP=7 
265 IFLO=4THENBP=9 

270 0$=RIGHT$(0$,LO) :IF L0=4 GOSUB 725: 
0$=Q$ 

275 0C$(I)=MID$(T$,BP,2)+0$:G0T0 425 
280 0C$(I)=MID$(T$,11,2) 
285 PB=128+16*II:FOR Q=LO TO LO-2 STEP 
-1 

290 Q$=MID$(O$,Q,1):RV=0 
295 IF Q$="X"THEN320 
300 IF Q$="Y" THEN RV=32:GOTO320 
305 IF Q$="U" THEN RV=64:GOTO320 
310 IF Q$="S" THEN RV=96:GOTO320 
315 NEXT Q 

320 PB=PB+RV:DV$="" 

325 ON LO GOTO 440,330,355,385,335,400, 

440,410 

330 PB=PB+4:GOT0415 

335 PB=VAL("&H"+MID$(0$,2,2)) 

340 IF ASC (0$) =45 THEN PB=-PB 

345 PB=PB AND 31:PB=PB+RV 

350 DV$="":GOT0415 

355 Q1$=LEFT$(0$,1):Q3$=RIGHT$(0$,1) 

360 IF Q1$="A" THEN PB=PB+6:GOT0415 

365 IF Q1$="B" THEN PB=PB+5:GOT0415 

370 IF Q1$="D" THEN PB=PB+11:G0T0 415 

375 IF Q3$="+" THEN 415 

380 PB=PB+2:G0T0 415 

385 IF ASC(0$)=ASC(",") THEN PB=PB+1:G0 

T0415 

390 IFCP=0 GOSUB725:PB=&H9F:DV$=Q$:GOTO 

415 

395 PB=PB+8:DV$=LEFT$(0$,2):GOTO 415 

400 IF MID$(0$,5,1)="," THEN PB=PB+9:0$ 

=LEFT$ (0$,4) :GOSUB725:OV$=Q$:GOTO 415 

405 PB=PB+12:DV$=LEFT$(0$,2):GOTO 415 

410 0$=LEFT$(0$,4) :GOSUB725:DV$=Q$: PB=P 

B+13 

415 PB$=HEX$(PB):IF LEN(PB$)=1 THEN PB$ 

="0"+PB$ 

420 0C$(I)=OC$(I)+PB$ 

425 OC$(I)=PR$+OC$(I)+DV$ 

430 GOSUB630 

4 35 DV$=" " : NEXTI : PRINT"OK" : GOTO20 

440 GOSUB900:GOTO20 

445 M=139:DIM MN$(M):FOR I=1T0M 

450 READMN$ (I) :NEXT: RETURN 

455 DATAABX 3A,ADCA8999B9A9,ADCBC9D9F9E 

9 , ADDA8B9BBBAB , ADDBCBDBFBEB , ADDDC3D3F3E 

3,ANDA8494B4A4 
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460 DATAANDBC4D4F4E4,ANDC1C? ?????, ASL ? 

7087868, ASLA48,ASLB58,ASR ??077767,ASRA 

47,ASRB57 

465 DATABCC ????24??,BCS ????25??,BEQ ? 

???27??,BGE ????2C??,BGT ????2E?? f BHI ? 

???22?? 

470 DATABHS ????24??,BITA8595B5A5,BITBC 

5D5F5E5,BLE ????2F??,BL0 ????25??,BLS ? 

???23?? 

475 DATABLT ????2D??,BMI ????2B??,BNE ? 

???26??,BPL ????2A??,BRA ????20??,BRN ? 

???21??,BSR ????8D??,BVC ????28??,BVS ? 

???29?? 

480 DATACLR ??0F7F6F,CLRA4F,CLRB5F,CMPA 

8191B1A1,CMPBC1D1F1E1,CMPD8393B3A3A,CMP 

S8C9CBCACB 

485 DATACMPU8 39 3B3A3B , CMPX8C9CBCAC , CMPY 

8C9CBCACA,COM ??037363,COMA43,COMB53,CW 

AI3C??????,DAA 19 

490 DATADEC ??0A7A6A,DECA4A,DECB5A,EORA 

8898B8A8,EORBC8D8F8E8,EXG IE??????, INC 

??0C7C6C,INCA4C 

495 DATAINCB5C,JMP ??0E7E6E,JSR ??9DBDA 

D 

500 DATALBCC????24A,LBCS????25??A,LBEQ? 

???27??A,LBGE????2C??A 

505 DATALBGT????2E??A,LBHI????22??A,LBH 

S????24??A,LBLE????2F??A,LBLO????25??A, 

LBLS????23??A 

510 DATALBLT????2D??A,LBN|I????2B??A,LBN 

E????26??A,LBPL????2A??A,LBRA????16??,L 

BRN????21??A 

515 DATALBSR????17??,LBVC????28??A,LBVS 

????29??A 

520 DATALDA 8696B6A6,LDB C6D6F6E6,LDD C 

CDCFCEC,LDS CEDEFEEEA 

525 DATALDU CEDEFEEE,LDX 8E9EBEAE,LDY 8 

E9EBEAEA, LEAS??????32 

530 DATALEAU??????33,LEAX??????30,LEAY? 

?????31,LSL ??087868,LSLA48,LSLB58,LSR 

??047464,LSRA44,LSRB54,MUL 3D,NEG ??007 

060 

535 DATANEGA40,NEGB50,NOP 12,0RA 8A9ABA 

AA,ORB CADAFAEA,0RCC1A,PSHS34,PSHU36,PU 

LS35,PULU37 

540 DATAROL ??097969,ROLA49,ROLB59,ROR 

??067666,RORA46,RORB56,RTI 3B,RTS 39, SB 

CA8292B2A2 

545 DATASBCBC2D2F2E2,SEX 1D,STA ??97B7A 

7, STB ??D7F7E7,STD ??DDFDED,STS ??DFFFE 

FA,STU ??DFFFEF 

550 DATASTX ??9FBFAF,STY ??9FBFAFA,SUBA 

8090B0A0,SUBBC0D0F0E0,SUBD8393B3A3,SWI 

3F,SWI23FA,SWI33FB 

555 DATASYNC13,TFR 1F??????,TST ??0D7D6 

D,TSTA4D,TSTB5D 




® Includes INR OUT, multi-dimensional arrays. 

© About 40 lines/second. 

® Only 10% -35% code growth. 

© Even unstructured for-next loops, 
variable-bound arrays. 

$99.95 +$2 Shipping 

CAadd6% 



M«M 




Allen Gelder Software 
(415)387-3131 

)x 11721 San Francisco CA 94101 
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Also EDIT Full screen BASIC editor. $40 
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560 REM IND/lND? 

565 II=0:CP=0 

570 IF ASC(0$)=91 THEN 11=1 :LO=LO- 2:0$= 

MID$(0$,2,L0) 

575 FOR Q=l TO L0 

530 Q$=MID$(0$,Q,1) 

585 IF 0$="," THEN CP=Q: RETURN 

590 NEXT Q: RETURN 

595 REM PREBYTE 

600 PR$= n,, :IF LT/2=INT(LT/2) THEN RETUR 

N 

605 PR$="10":IF RIGmSO^lH'B" THEN P 

R$="ll" 

610 LT=LT-1 :T$=LEFT$ (T$ , LT) : RETURN 

620 FOR K=1T0 N-l 

625 PRINTK;TAB(5)L$(K)TAB(11)HE>C$(AD(K) 

);TAB(17)0C$(K):NEXT:RETURN 

630 F$=LEFT$ (M$ , 1 ) : F2$=LEFT$ (M$ , 2 ) 

635 EP F2$= 1, LB U THEN680 

640 IF F2$= M BI" OR F$<>"B" THEN RETURN 

645 GOSUB725 

650 BV=AD(l)+2:BV=VAL( ,, ScH ,, +Q$)-BV 

655 IP BV<0 THEN 3V=256+BV 

660 IF BV<0 OR BV>255 THEN BV=0:GOSUB90 



665 H$=HEX$(BV):IF l_,EN(H$)=l THEN H$="0 

"+H$ 

670 0C$(l)=LEFT$(0C$(l),2)+H$ 

675 RETURN 

680 LC=LEN(0C$(l)):L0=LC-4 

685 0C$(I)=LEFT$(0C$(I),LC) 

690 GOSUB725 

695 W=AD(l)+4;W=VAL( ,, &H"+Q$)-W 

700 IEW<0 THEN W=65536-fWV 

705 IF W<0 OR W>65535 THEN440 

710 H$=HEX$(W) 

715 IF LEN(H$)<4 THEN H$="0"+H$sGOTO715 

720 a:$( I) =0C$(I)+H$; RETURN 

725 0=ASC(0$);IF 0<71 OR O>90 THEN Q$=0 

$:RETURN 

730 Q$="0000" 

735 FOR 0=1 TO N-l 

740 IF 0$=L$(Q) THEN 750 

745 NEXTQ:GOSUB900:RErURN 

750 IF Q>I THEN PRINT" FORWARD" 

755 Q$=HEX$(AD(Q)) 

760 IF LEN(Q$)<4 THEN Q$="0"+Q$:GOTO 76 



765 RETURN 

770 F0RI=1T0 N-l 

775 0$=OC$(I):D=LEN(0$) 

780 IF D=0 THEN 810 

785 A=AD(l) 

790 FOR 0=1 TO I/-1 STEP 2 

795 V=VAL("&H"-fMID$ (05,0,2)) 

800 POKE A,V:PRINTHEX$(A);" n yHEX$(V) y " 

";:A=A+1 
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805 NEXT Q 

810 NEXT I 

815 0$=O$(N)sG0SUB725: PRINT 

820 DEFUSR1=VAL( " &H"+0$ ) : RETURN 

825 Rl$=LEFT$(0$,l)sR2$=RIGHT$(0$,l) 

830 FORQ=1TO10 

835 Q$=MID$(R$,Q / 1):NC$=MID$(N$ / Q / 1) 

840 IF R1$=Q$ THEN N1$=NC$ 

845 IF R2$=Q$ THEN N2$=NC$ 

850 NEXT Q 

855 0$="1E":IF M$="TFR" THEN 0$= ,, 1F" 

860 0C$(l)=O$-»Tl$+N2$:G0TO435 

865 BV=0:FOR 0=1 TO IjO STEP 2 

870 Q$=MID$(0$,Q,1) 

875 EP=INSTR(S$,Q$):IF EP=0 THEN 885- 

880 BV=BV+2"(EP-1) 

885 NEXT Q 

890 H$=HEX$(BV):IF LEN(H$)=1 THEN H$="0 

"+H$ 

895 0C$(I)=RIGHT$(T$,2)+H$:G0T0435 

900 PRINT" BRR LINE"I: RETURN 

9L0 INPUr"L S";X$ 

915 IF X$="S ,, THEN950 

920 IFX$<> ,, L"THEf^980 

925 G03UB985 

930 OPEN 'T'^-l/'CODES" 

932 INPUT#-l f N 

934 FOR 1=1 TO N 

937 INPUT#-1,L$(I) / M$(l) f 0$(l) 

940 NEXTIsGOSUB155sGOTO980 

950 GOSUB985 

955 OPEN "C'^-l/'CODES" 

960 PRINT#-1 # N 

965 F0RI=1 TO N 

970 PRINT #-l,L$(l),M$(l) f O$(l) 

975 NEXTI 

980 PRINT'W : CL0SE#-1 :GOTO20 

985 INPUT"READY TAPE" ;Q$: RETURN 



The Color Computer Disassembler 

In trying to learn about the 6809E, it is convenient to 
have available a disassembler, which is simply a 
program for converting machine code in memory to an 
assembly language listing. The disassembler presented 
here is written in Extended Color BASIC and runs in 
just over 6K. The mnemonics and operands are mostly 
standard, but there are a few exceptions. The 
instruction ANDCC is changed to ANDC in order to 
match the three or four-character length of the other 
mnemonics. The CC (condition code) register is also 
referred to as C when present as an operand in push, 
pull, transfer and exchange instructions. The other 
nonstandard output is also in connection with push and 
pull instructions. The presence of the up-arrow 
character in the operand field of one of these 
instructions refers to the stack pointer for the stack not 
involved in the mnemonic. Thus, for example, PULS t 
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would mean: pull the user stack pointer from the 
system stack. 

Output is to the screen, but it can easily be directed to 
a printer since all output is done in line 670. The 
semicolon at the end of this line, together with the print 
statement at the beginning, allows 16 lines of code to be 
present on the screen when the computer is interrupted 
with shift @. 

All output is in hexadecimal in four fields similar to 
most assembler list outputs. These fields are: address, 
opcodes (and maybe data), mnemonic and operand. 

A standard problem with disassemblers is the 
handling of data tables. Any sequence of bytes may be 
present in memory, and not all of these are valid 
opcodes. I handled this by placing horizontal lines in 
the mnemonic field and presenting, where possible, the 
corresponding ASCII character (in quotes) in the. 
operand field. Of course, if a sequence of data bytes 
happens to make sense as code it is presented as such. 

There is a short routine at lines 310-340 which allows 
the user to POKE machine code into memory. This code 
may then be disassembled for test purposes before being 
executed. To use this routine, just RUN 310 and enter 
END to exit. 

To use the disassembler itself, simply type RUN and 
respond to the address request in decimal or hex. If hex 
is used, include the characters "&H" ahead of the 
desired value. Thus "&H600" or "1536" could be used 
here with the same effect. When POKEing code into 
memory, the same choice is available. The locations 
&H600 to &HBFF are not used by BASIC except for hi- 
res graphics, and thus provide a handy place for user 
routines. Color BASIC and Extended Color BASIC 
ROMS are located to begin at &H8000 and &HA000, 
respectively. 



Listing 2 for 
Disassembler 

10 PCLEARlsRK$="CABDXY A P" 

20 DIMX$(15);FORI=0TO15:READX$(l):NEXTs 

REM TFR,EXC 

30 DATAD,X,Y,U,S, PC,-, -,A,B,C, DP, -,-,-, 

40 DIM R$(3) 

50 FDR 1=0 TO 3:READR$(l)sNEXT 

60 DATA X,Y,U,S 

70 DIM M$(15,15)sREM MNEUMONICS 

80 FOR 1=0 TO 15sFORJ=0TO15 

90 READ M$(I,J):NEXT:NEXT 

100 DATANEG 2,-,-,COM 2,LSR 2,-,ROR 2, A 
SR 2,ASL 2,ROL 2, DEC 2,-, INC 2,TST 2,JM 
P 2,CLR 2 

101 DATA-,-, NOP l,SYNCl,-,-,LBRA8,LBSR8 
,-,DAA l,ORCC4,-,ANDC4,SEX 1,EXG 5,TFR 
5 

102 DATABRA 3,BRN 3,BHI 3,BLS 3,BCC 3,B 
CS 3,BNE 3,BEQ 3,BVC 3,BVS 3,BPL 3,BMI 
3,BGE 3,BLT 3,BGT 3,BLE 3 
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103 DATALEAX9, LEAY9, LEAS9, LEAU9, PSHS4, P 
[JLS4,PSHU4,PULU4,-,RTS 1,ABX 1,RTI 1,CW 
AI4,MUL 1,-,SWI 1SWI 2SWI 3 

104 DATAtJEGAl,-,-,COMAl,LSRAl,-,RORAl,A 
SRA1 , LSLA1 , ROIA1 , DECA1 , -, INCA1 , TSTA1 , -, 
CLRA1 

105 DATAWEGBl,-,-,COMBl,r J SRin,-,RORBl,A 
SRB1,LSU31,R0LB1,DECB1,-,INCB1,TSTB1,-, 
CLRB1 

106 DATANTSG 9,-,-, COM 9,LSR 9,-,ROR 9, A 
SR 9,LSL 9,ROL 9,DEC 9,-,INC 9,TST 9,JM 
P 9,CLR 9 

107 DATANEG 7,-,-, COM 7,LSR 7,-,ROR 7, A 
SR 7,LSL 7,ROL 7, DEC 7,-, INC 7,TST 7,JM 
P 7,CLR 7 

108 DATASQBA4 , CMPM , S13CA4 , SUBD6CMPD6CMP 
tJ6,ANDA4,BITA4,LDA 4,-, EORA4,ADCA4,ORA 
4,ADDA4,CMPX6CMPY6CMPS6,BSR 3,LDX 6LDY 
6,- 

109 DATASIJBA2,CMPA2,SBCA2,SUBD2CMPD2CMP 
U2,ANDA2,BITA2,LDA 2,STA 2,EORA2, ADCA2, 
ORA 2,ADDA2,CMPX2CMPY2CMPS2,JSR 2,LDX 2 
LOY 2,STX 2STY 2 

110 DATASUBA9,CMPA9,SBCA9,SUBD9CMPD9CMP 
U9,ANDA9,BITA9,LDA 9,STA 9,EORA9,ADCA9, 
ORA 9,ADDA9,CMPX9CMPY9CMPS9,JSR 9,LDX 9 
LDY 9,STX 9STY 9 

111 DATASUBA7 , CMPA7 , SBCA7 , SI JBD7CMPD7CMP 
U7,ANDA7,BITA7,LDA 7,STA 7,EORA7,ADCA7, 
ORk 7,ADDA7,CMPX7CMPY7CMPX7,JSR 7,LDX 7 
U)Y 1,$VX 7STY 7 

L 1 2 OAFASUBBi , CMPA4 , SBCB4 , ADD1X , A^TDB4 , B 
ITB4,LDB 4,-,EORB4,ADCB4,ORB 4,ADDB4,LD 
D 6,-,LDU 6LDS 6,- 

113 DATASUBB2 , CMPB2 , SBCB2 , ADD02 , ANDB2 , B 
ITB2,fX>B 2, STB 2, RORB2,ADCB2,OR8 2,ADOB 
2,LDD 2,STD 2, LOU 2LDS 2,STU 2STS 2 

114 DATASUBB9,CMP89,SBCB9, ADDD9, ANDB9, B 
ITB9,LDB 9, STB 9,EORB9,A0CB9,ORB 9,ADDB 
9,LDD 9,STD 9, LOG 9LDS 9,STU 9STS 9 

115 DATASUBB7,CMPB7,SBCB7,ADDD7,ANDB7,B 
ITB7,LDB 7, STB 7,EORB7,ADCB7,ORB 7,ADDB 
7,LDD 7,STD 7,LDLf 7LDS 7,STU 7STS 7 
150 DIM P$(3,13);R*'l :-WmYTh: OPE1WTDS 
155 FOR I=0TO3:FORJ=0TO15sREAD P$(l 

200 DATA"+0, R" , "+1, R" , "+2, R" , "+3, R" , "+4 
, R" , "+5, R" , *'+6, R" , M +7, R" , "+8, R" , "+9, R" , 
,, +A,R", ,, +B,R","+C,R","+D,R M , ,, +E,R ,, , M 4-F, 
R" 

201 DATA"-10, R" , "-F, R" , "-E, R" , "-D, R" , "- 
C, R" , "-B, R" , M -A, R" , "-9, R" , "-8, R" , "-7, R" 
,"-6,R", ,, -5,R", ,, -4,R", ,, -3,R ,, , M -2,R ,, ,"-l 

,R" 

202 DATA" , R+" , " , RH-" , " , -R" , " , — R" , " , R" , 
,, B,R", ,, A,R ,, ,-/ , **,R ,, / , ####,R",-/ , D,R", n 

**,PC ,, , ,, ####,PC",-,- 
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203 DAm-/ , [ / R-H-]",-/'[,--R]","C,R] ,, / , [ 
B,R]", "[A,R]\ -,'*[**, R]", "[####, R]",-," 
[D,R]V'[*\ PC]", "[####, PC]", -,[####] 

3(10 goto 500 

310 input" en per address" ?m 
320 inputb$:if b$="end"the]n end 
330 poke m,7al(b$) 

340 M=M+1:G0T0 320 

500 INPUT" ENTER A!)ORESS ;, ;M 

510 H$=HEX$ (PEEK(M) ) s IFLEN( H$ )=1THGNH$= 

"0"+H$ 

520 SM=M 

530 I=VAL("&H"+LEFT$(H$,1)) 

540 J=VAL("&U"+RIGUT$(H$,1)) 

550 IF 1=1 AND J<2 THEN 2140 

560 REM 2-BYTE OPCODE " 

570 S$=M$(I,J):IFS$="- ,, THENS$=-" "sO 

$=CHR$ ( 39 ) +CHR$ ( 16*I+J ) +CHR$ ( 39 ) : GOT062 

0:' PHONEY OPCODE 

580 S$=LEFT.?(S$,5) 

590 AT=VAL(RIGHT$(S$,1)) 

600 ON AT GOTO 1100,1200,1300,1400,1500 

,1600,1700,1800,1900 

610 ' INHERENT, DPAGE, REL, IMMED, REG, IjQNG 

IMMED,EXTD,LONG REL, POST 
620 S$=LEFT$(S$,4)+" "+0$ 
630 0$="" 
635 T$=HEX$(SM) 

637 IF LEN(T$)<4 THEN T$="0"+T$sG:>rO 63 
7 

640 T$=T$+" " 

650 FORI=SM TO M:V$=HEX$(PEEK(l)):TF L.G 
N(V$)=1 THEN V$="0"+V$ 

660 T$=T$+V$;NEXT I 

670 PRINT ; PRINTr$ ; TAB ( 1 5 ) S$ ? 

680 M=M+1 

690 GOTO510:' NEXT INSTRUCTION 

790 REM PEEK(M) TO HEX & BUMP M 

800 M=M+l:V$=HEX$(PEEK(M))sIF LEN(V$)=1 

THEN V$= M 0"+V$ 
810 RETURN 
1100 O$= MM ;GOTO620 
1200 GOSU8800:O$=V$sGOTO620 
1300 M=M+l:V=PEEK(M)sIF\/>127 THEN V=V-2 
56 

1310 V=M+1+V:0$=HEX$(V) 

1320 IFLEN(0$)<4 THEN O$="0"+O$:GOTO 13 
20 

1330 GOTO620 
1400 GOSUB800:O$="#"+V$ 
1410 IF ASC(S$)<>80 THEN 620 
1420 N=VAL( ,, ScH"+V$)sO$="" 
1430 FOR I=0rO7 : ' PUSH-PUL DECODE 
1440 IF (N AND (2*l))>0 THEN 0$=0$+" , "+ 
MID$(RK$, 1+1,1): IF RIGHT? (0$,1)="D" THE 
N 0$=0$+"P" 



1450 NEXT I 

1460 0$=MID$(0$,2);G0T0 620 

1500 GOSUB800jRl==VAL( "&H"+LEFT$ (V?, 1) ) : 

R2=VAL( "&H"+RIGHT$(V$,1) ) :0$=X$(R1)+", " 

+X$(R2):GOTO620 

1600 GOSUB800 : 0$=" # "+V$ : GOSU3303 % 0.?=O$+ 

V$:GOTO620 

1700 GOSUB800:O$=V$:GOSUB800:O$=O$+V$:G 

OTO620 

1800 GOSUB800:O$=V$:GOSUB800:O$=O$+V$ 

1810 V=VAL("ScH"+0$) 

1820 IF V> 32767 THEN V=V-65536 

1825 V=M+1+V 

1.830 IP V<0 THEN 0$=" " ELSE 0$=HEX$( 

V) 

1840 GOTO 620 

1900 GOSUB800jREM GEP P09IMYTE 

1910 N1=VAL( "&H"+LEFT$ (V$, 1 ) ) 

1920 N2=VAL( ,, &H"+RI(3}ir$ (V$, 1 ) ) 

1930 R=N1 AND 6:R=R/2:RG$=R$(R) 

1940 I=2*INP(Nl/8)+(Nl AND 1) 

1950 J=N2sO$=P$(t,j) 

1960 L=LEN(0$) 

1970 FOR 1=1 TO L 

1980 IP MID$(0$,I,1)="R" THEN 2010 

1990 NEXT I 

2000 GOTO 2020 

2010 MI D$ (0$ , I , 1 ) =RG$ : ' REGISTER 

2020 F0RI=1T0L 

2030 IF MID$(0$,I,1)="* M THEN2070 

2040 IF MID$(0$,I,1)="#" THEN 2100 

2050 NEXT I 

2060 GOTO 2130 

2070 GOSUB800 

2080 MID$(0$,I,2)=V$ 

2090 GOTO 2130 

2 100 GOSUB800 : T$=V$ : GOSUB800 

2110 T$=T$+V$ 

2120 MID$(0$,I,4)=T$ 

2130 GOTO 620 

2140 GOSUB800; ' 2-BYTE OPCODE 

2150 IFLEFT$(V$,1)<>"2"THEN2210 

2160 Ll=2s ! LONG BRANCH 

2170 L2=VAL( "ScH"+RIGHT$ (V$, 1 ) ) 

2180 T$=M$(L1,L2) 

2190 S$="L"+LEFT$ (T$ , 3 ) +RIGHr$ (T$ , 1 ) 

2200 GOTO 590 

2210 P=6+5*J 

2220 L1=VAL("&H"+LEFT$(V$,1)) 

2230 L2=VAL( " ScH"+RIGHT$ (V$ , 1 ) ) 

2240 T$=M$(L1,L2) 

2250 S$=MID$(T$,P,5) 

2260 IF LEN(S$)=0 THENS$=" ";0$="— 

- ,, ;GOTO620s* BYTE 2 FUNNY 

2270 GOTO590 m 
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Whiz quiz ... 

or, do you speak Southern Country? 



Model I/HI, 16K tape or disk 



I 



\ 




Jim Peyton, Georgetown, KY 













^M \ \ 




/ 






Q: What does "fur" mean? 

A: Distant, as in "It's a fur piece to 



the next town." 





Q: What does "steel" mean? 

• L\r "*V •■' v "* \ ■■ : : .;, 

A; Quiet, as in "He was as steel as 




a mo 





'■V. ■ 



WHIZ QUIZ is an animated graphics program that 
administers almost any multiple choice quiz, It employs 
the basic learning principles of immediate feedback and 
positive reinforcement. When a question is answered 
correctly, two ducks respond with excitement and 
approval. If the answer is a poor choice, the ducks so 
indicate and present the user with an explanation of the 
correct or best answer. 

Questions are presented in a different order each time 
the program is run. This allows the quiz to be 
administered to the same person several times, or until 
mastery is achieved, without generating a response 
pattern. 



When a question is answered correctly, 
two ducks respond with excitement and 
approval 



A short quiz, "Do You Speak Southern Country?", is 
included in the program for demonstration purposes. 
Replace it with a quiz of your own choosing. 

Here is a line analysis of the program: 

lines 10-20 perform initialization and housekeeping 

chores. 

Lines 30-40 ask the user to wait /while the program 
reads the graphic data for the ducks into strings. 

Line 100 prints the quiz title in the top center of the 

screen. 

Line 110 prints the ducks on either side of the screen. 
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Line 120 selects a question-and-answer set using the 
randomized index and POKEs the address of the set 
into the data pointers. 

Line 130 reads the question-and-answer set and 

checks for end-of-data. 

Line 140 absorbs any unwanted input from the 
keyboard and adds arrows to the string which holds the 

question. 
Line 150 erases the portion of the screen which holds 

the answer choices, 
line 160 sets up an INKEY$ input. 
line 170 selects at random a movement for the left 

duck. 
Line 180 does the same for the right duck. 
Line 190 prints the question centered in the upper part 

of the screen, 
lines 200-210 number and print the answer choices, 
Line 220 waits a bit, then prompts the user to type in 

his answer. 

1 Line 230 prints a question mark in the space to 
contain the response. If no response is immediately 
forthcoming, the program loops back to line 160 and 
processes the block again, animating the ducks with 
random movements. If the keyboard scan does find a 
response, the response is tested and, if valid, it is 

printed. 

Line 240 compares the response to the correct answer. 
If a match is found, the variable holding the number of 
correct responses is incremented and the program goes 
to the wing-flap and head-nod routine. A mismatch 
increments the incorrect response variable and sends 
the program to the head-shake and explanation-crawl 

routine. 




Our Users asked for it, and we made the 
best TRS-80 disk assembler even better! 
Now M-ZAL has: 

M Recursive MACROS with full symbolic parameter 

substitution 
B Conditional assembly with unlimited nesting 
B Text Editor warm-start/recovery option 
B Support for all popular source file formats 
M Load Module inspect/superzap using LINKER 

and the features that made it famous: 

■ True multi-pass assembly 
M Full Screen Option Menus 

M ENTRY/EXTERN symbols, relocation,and object 

module linking 
M 8 character labels with sorted symbol table 
M Built-in symbol table cross-reference 

■ Nested 'INCLUDES (source file chaining/nesting] 
M Lower case support (Model 3 only) 

B Over 175 pages of documentation including 

Z-80 Technical Manual 
B Full Screen Text Editing and much, much more! 

M-ZAL provides a modular, structured development 
environment that makes programming your TRS-80 
a truly enjoyable experience. Order yours today 
(Requires 32k, 2 disk system) 

#1050-10 Mod 1 $149.00 

#1250-10 Mod 3 $149,00 

CAU Development Software— 
The Professionals Choice: 

Full Screen Text Editor for BASIC: we were the first to 
give the TRS-80 this indispensable ability! A must for 
every BASIC programmer: 

#1010-20 Mod 1 $24.95 

#1210-20 Mod 3 $29.95 

T-ZAL: custom designed for the Model 3, this tape 
based assembler has many of M-ZAL's most 
desired features. 

#1250-20 Mod 3 only $49.95 

XBUG: for machine language analysis and 
debugging— this tiny (2.5k) but powerful program 
lets you do it all! 

#1020-10 Mod 1 $19.95 

#1220-10 Mod 3 $19.95 

FILEXFER: transfer any disk file between two TRS-80s. 
Use direct cable link or RS modems. Mod 1 and 
Mod 3 can be mixed. RS-232 and disk reqd. 
#1040-10 Mod 1 and 3 $49.95 



"We've been using M-ZAL heavily for 
over two months now, and it's been 
worth its weight in gold" 



"...well written software fhat is long 

Overdue." -Bruce Douglass 



"During the first 3 days of use, M-ZAL 
saved more money in programmers 
time fhan we had paid for the 

prOdUCf." -William Denman 



"The editor has at least doubled my 
productive capacify... Having spent a 
good deal of money on so called 
'utilities' that don't work, it's a delight 
to find one thaf not only lives up to its 
claims but surpasses the advertising." 



Our choice for the best TRS-80 DOS: 
DOSPLUS 3.4 Modi $149.00 

DOSPLUS 3.4 Mod 3 $149.00 



Call or write for more information. 
All products require level II. 
Mail orders specify catalog #. 
Send check, money order, or MC/VISA 
numbers and expiration date to: 

Computer Applications Unlimited 

P.O. Box 214, Dept. ABO Rye, New York 10580 

(914) 937 6286 

N.Y. State residents add applicable sales tax. 
Outside USA and Canada add $7.00 shipping. 
Dealer Inquiries Invited, w *% "i 

Lv J 



ni I COMPUTER 
'J/J APPLICATIONS 
UNLIMITED. 



m 



a dlv. of CAU, Inc. 



TRS-80 is a TM of Tandy Corp. M-ZAL is a TM of CAU. Inc. 
Z-80 is a TM of Zilog, Inc. 
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line 250 calculates and prints a percentage score. 

Line 260 closes the loop and begins the cycle for the 
next question. 

Lines 300-510 read the graphic data into strings. 

Lines 520-570 create strings containing line feeds and 
back spaces needed in constructing the figures. 

Lines 580-690 concatenate the strings into figures and 
parts of figures. 

Lines 700-720 read through the quiz data, saving the 
addresses of each question-and-answer set. 

Lines 730-780 create a randomized index by first 
generating a series of random numbers and an ordered 
index and then sorting the random series with the index 
tagging along. 

Lines 1000-1510 are subroutines used to animate the 

du cits 

Lines 2000-2140 are DATA statements containing the 
ASCII numbers for the graphic blocks needed to create 
the ducks. 

Lines 3000-3210 contain the data for the sample quiz. 

In substituting your own quiz, it is essential that the 
items be in the following sequence: (1) Title, (2) 
Question, (3-6) Choices, (7) The number of the correct 
answer, (8) Explanation. Now, repeat the series starting 

at (2). 

It is necessary that the explanation string have a 
trailing blank. It is also required that the last DATA 
statement contains six commas, since the program uses 
these as an end-of-data marker. 

The listing for WHIZ QUIZ contains several REM 
statements. Omitting these will save typing and 
memory and allow the program to operate more 
efficiently. Only the lines ending in zero need be 
preserved. 

Program Listing for 
WHIZ QUIZ 



1 *=***= WHIZ QUIZ 

2 8 

3 ! 

4 ' 

5 ■ 



-■kick— 



BY JIM PEYTON 

ROUTE 2 

GEORGETOWN KY 40324 



8 8 INITIALIZE 

10 CLSiCLEAR1100sRANDOM:DEFSTRB-H 
20 DEFINTI-Z:DIMA(50) ,R(50,2) ,T(50) 
30 PRINT@469," PLEASE WAIT A MOMENT 
40 GOTO300 
96 ' 

98 * MAIN PROGRAM 

99 , ============================== 

100 CLS:S=0:T=0:PRINT@31-(LEN(X$)/2),X$ 
110 FORJ=1TOI:P=519:Q=568:GOSUB1000:GOS 

UB1010 

120 POKE16639,R(A(J),l)sPOKE16640,R(A(J 

),2) 
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130 READ I$,J$,K$,L$,M$,N$,0$:IFI$=""TH 

EN270 

140 Y$=INKEY$:I$="===> "+I$+" <=== 

150 PRINT@128,CHR$ (30) ; :PRINT@256,CHR$ ( 

30);:PRINT@320,CHR$(30); 

160 Z$="":Z$=INKEY$ 

170 A=RND(9):ON A GOSUB1160, 1180, 1200,1 

220,1240,1260,1300,1320,1350 

180 A=RND(9):ON A GOSUB1170, 1190,1210, 1 

230,1250,1270,1310,1330,1370 

190 PRINT@159-(LEN(I$)/2),I$ 

200 PRINT@261,"<1> "J$?sPRINT,@292,"<3> 

" L$ • 
210 PRINT(§325,"<2> "K$; : PRINTS 356, "<4> 

"M$ 
220 GOSUB1510:PRINT(§464,"TYPE THE NUMBE 

R OF YOUR CHOICE 

230 PRINT@606,"?"? :IFZ$=>"1"ANDZ$<="4"T 

HENPRINT@606 , Z$ ? ELSE 160 

240 IFZ$=N$THENS=S+1:GOSUB1450ELSET=T+1 

:GOSUB1470 

250 PRINT(3921, "SCORE ="; INT( (S/ (S+T) ) *1 

00)? 

260 NEXTJ 
270 END 
296 ! 

298 « READ DATA INTO STRINGS 

300 READAlsFORI=lTOAl: READA :B0=B0+CHR$ ( 

A): NEXT 

310 FORI=lTOAlsREADA:Bl=Bl+CHR$(A) -.NEXT 
320 FORI=lTOAl:READAsB2=B2-K:HR$(A) sNEXT 
330 FORI=1TOA1?READAsB3=B3-h:HR$(A) sNEXT 
340 READA2 1 FORI=lTOA2 1 READA-. C0=C0+CHR$ ( 

A) sNEXT 

350 FORI=lTOA2sREADA-.Cl=Cl+CHR$(A) sNEXT 
360 F0RI=1T0A2:READA:C2=C2+CHR$(A) sNEXT 
370 FORI=lTOA2sREADA:C3=C3+CHR$(A) sNEXT 
380 FORI=lTOA2sREADA:C4=C4+CHR$ (A) :NEXT 
390 F0RI=1T0A2:READA:C5=C5+CHR$(A) sNEXT 
400 FORI=1TOA2sREADAjC6=C6+CHR$ (A) -.NEXT 
4 1 FORI= 1TOA2 : READA I D0=D0+CHR$ (A) z NEXT 
420 READA3:F0RI=1T0A3: READA: D1=D1-K:HR$ ( 

A) :NEXT 

430 READA4:FORI=1TOA4jREADA:E0=E0-h:HR$ ( 

A): NEXT 

440 F0RI=1T0A4:READA:E1=E1+CHR$(A) :NEXT 
450 F0RI=1T0A4:READA:E2=E24CHR$(A) :NEXT 
460 FORI=lTOA4sREADA:E3=E3+CHR$ (A) :NEXT 
470 FORI=lTOA4:READAsF0=F0+CHR$ (A) :NEXT 
480 FORI=1TOA4-1:READAsF1=F1-k:HR$(A) :NE 

XT 

490 FORI=lTOA4: READA :F2=F24CHR$ (A) sNEXT 
500 FORI=lTOA4s READA sF3=F3-K:HR$ (A) :NEXT 
510 FORI=lTOA3:READAsF4=F4+CHR$(A) -.NEXT 
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516 ' 

5 17 ■ ==================^=========== 

518 ' LINE FEEDS AND BACK SPACES 

5 19 i ============================== 

520 G0=CHR$(2S)+STRING$(7,24) 
530 G1=CHR$(26)+STRING$(5,24) 
540 G2=CHR$(26)+STRING$(6,24) 
550 G3=CHR$(26)+STRING$(9,24) 
560 G4=CHR$ (26) +STRING$ (10,24) 
570 G5=CHR$(26)+STRING$ (13,24) 

576 * 

577 » ============================== 

578 ' CUMULATE STRINGS INTO FIGURE 

579 ■ ============================== 

580 HA=B1-K314C0+G0+D0-K344E0+G5+F0+G3+F4 
590 H&=B1+G1+C0-K30+D0+G0+D0-K34+E04G5+F0 
-H33+F4 

600 HOB1+G14C1-H30+D0 

610 HD=B1-KU+C2-H30+D0 v 

620 HE=B2+Gl+C3-fG0+D0 

630 HF=B3+G14C4+G0+D0 

640 HG=B0+GHC5-K32+D1 

650 HH=B1-H31+C6-HG0+D0 

660 HI=E0+G5+F0-K33+F4 

670 HJ=E1+G5+F1 

680 HK=E2+G5+F2 

690 HL=E3-K^5+F3 

696 ■ 

697 , = === = = = ================= =====:= 

698 ' SAVE DATA POINTERS 

699 ' ============================== 

700 I=0:READX$: 1=1+1 :R (I, 1)=PEEK (16639) 
:R(I,2)=PEEK(16640) 

710 READI$,J$,K$,L$,M$,N$,0$:IFI$=""THE 

NI=I-1:GOTO730 

720 I=I+1:R(I,1)=PEEK(16639):R(I,2)=PEE 

K (16640) :GOTO710 

726 ' 

7 27 ' ============================== 

- 728 ' RANDOM INDEX FOR POINTERS 
7 29 * ============================== 

730 F0RJ=1T0I:T(J)=RND(999):A(J)=J:NEXT 

J 

740 FORJ=lTOI:FORK=lTOI-J 

750 IFT(K)>T(K+1)THENT=T(K):T(K)=T(K+1) 

:T(K+1)=T:A=A(K):A(K)=A(K+1):A(K+1)=A 

760 NEXTK 

770 NEXTJ 

780 GOTO100 

996 •■ 

997 ' ============================= 

998 ' ANIMATE DUCKS 

999 * ============================== 

1000 PRINT@P+63,HA;:RETURN 
1010 PRINT@Q+63,HA;:RETURN 

!l020 PRINT@P-1,HB;: RETURN 
1030 PRINT@Q-1,HB;: RETURN 



COMPAREOUR 
PRICES! 

'DISNTIIP 

MODEL III UPGRADE 
FEATURES: 

• Gold Plated Edge Connectors 

• Switching Power Supply 
(Runs cooler) 

• 40/80 Track supported 

• Single/Dual Head supported 

• Metal Disk Drive Brackets 

• All Hardware and Cables for 
Disk Drive 

• 1 Hour or Less for Installation 

• 100% Compatible 

• No Soldering Needed 

• 180 Days Warranty on Controller 

DISKS! HI DISKIT 



W/Out Drives 




W/One Tandon 
1 00 40 Tack Drive 



$32900 $549 00 $764 00 

IDEALER INQUIRIES WELCOME! 



EPSON 

NEW LOWER PRICES! 
WITH GRAPHTRAX 



•*-rW,, 




MX-80 
$459.00 
MX-80 F/Tl 
$559.00 
MX-100 
$729.00 



THE NEW MICR0BUFFER® 

ACCEPTS DATA AS FAST AS 

YOUR COMPUTER CAN SEND IT 

MBP— 16K Parallel $159.00 

MBS— 6K Serial $159.00 

INTERFACE CARDS 

8141 (RS-232) $ 75 

8150 (2K Buffered RS-232) $150 

8161 (IEEE 488) $ 55 

8131 (Apple Card) $ 85 

8230 (Apple Cable) $ 25 

8220 (TRS-80 Cable) $ 25 

OKIDATA MICROLINE 82A $ 549.00 

OKIDATA MICROLINE 83A $ 799.00 

OKIDATA MICROLINE 84 $1199.00 

MODEL I complete MODEL III 

DISK DRIVES 

Includes Case, Power Supply 
90 Days 100% Warranty 



PARAGON 

magnetics 1 

<S<Ud 



MTC's 
premium Single Sided Soft-Sectored 

DOUBLE DENSITY. 5' 4-inch diskettes 
with reinforcing HUB-RINGS. Individually 
100% ERROR free certified. Invest in 
GOLD' 
PARAGON MAGNETICS GOLD.... $23.95 



Mm 

MSffur 



$289 95 



BARE DRIVES 

TANDON 5 1 /4 INCH 

100 1 SINGLE HEAD 40 TRK 229.00 

100 2 DUAL HEAD 40 TRK 299.00 

100 3 SINGLE HEAD 80 TRK 299.00 

100 4 DUAL HEAD 80 TRK 429.00 

MODEMS 

UDS 103 LP DIRECT CONNECT.. 175.00 

UDS 103 JLP AUTO ANS 209.00 

HAYES MICROMODEM II (APPLE) 299.00 

HAYES 100 MODEM (S-100) 325.00 

HAYES SMART MODEM (RS-232) 249.00 



(DOUBLE-DENSITY) Single-sided soft- 
sectored 5 1 A inch 100% error-free certified. 
These diskettes are fully guaranteed for 
one year against defects (return any bad 
diskettes) and we will replace FREE. 

MDS Disk Pak Box of 10 $21.95 

5 Boxes of 10 Disks $99.95 

VERBATIM 

Soft-Sectored Diskettes 

5V4" 1S/DDen (MD525-01) 

5V4" 2S/DDen (MD550-01) 

5V4" 2S/4Den (MD557-01) 

8" 1S/DDen (FD34-8000) 

Hard-Sectored Diskettes 

51/4" 1S/00en 10-sector (MD525-10) 

5Vt" 2S/DDen 10-sector (MD550-10) 

5V4" 2S/4Den 10-sector (MD557-10) 

Supplies 

HUB RING KIT for S'A" disks 

HUB RING KIT for 8" disks 

REFILLS (50 Hub Rings) 

CLEANING KIT for 5V 4 " drives .... 

SVfc-inch diskette case 

8-inch diskette case 

5 1 /4-inch File Box for 

50 diskettes 



$26.95 
$39.95 
$51.50 
$43.95 

$26.95 
$39.95 
$51.50 



$10.95 
$12.95 
.$ 5.95 
$24.95 
.$ 3.50 
$ 3.95 

$24.95 



DISKIT III IS A ® OF MDS 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 

transit will be 

exchanged. 



Prices, Specifications 

and Offerings subject 

to change without 

notice. 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD. 



• Add $3.00 for shop- 
ping & handling 

• $3.00 EXTRA for 
C.O.D. 

• Ohio residents add 
6.5$ sales tax 



g^pmiCHO DATA SIIPPLICS 

M M^^ 7541 MENTOR AVENUE/#108 

wuBmasm mentor, ohio 44080 

W^^Sm^ CaM . (216) 951-6502 
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Quiz 



1040 PRINT@P-1,HC;: RETURN 

1050 PRINT@Q-1,HC;:RETURN 

1060 PRINT@P-1,HD;: RETURN 

1070 PRINT@Q-1,HD;:RETURN 

1080 PRINT@P~1,HE; :GOSUS 1020: RETURN 

1090 PRINT@Q-1,HE; :GOSUB1020:RETURN 

1100 PRINT@P-1,HF; :GOSUB1020:RETURN 

1110 PRINT@Q-1,HF;:GOSUB1030:RETURN 

1120 PRINT@P-1,HG; :GOSUB1020:RETURN 

1130 PRINT@Q-1,HG; :GOSUB 10 30: RETURN 

1140 PRINT@P-1,HH; :GOSUB1350:GOSUB1020: 

RETURN 

1150 PRINT@Q-1,HH; :GOSUB1370:GOSUB1030: 

RETURN 

1160 PRINT@P+63,HC;:RETURN 

1170 PRINT@Q+63,HC;:RETURN 

1180 PRINT@P+63,HD;: RETURN 

1190 PRINT@Q+63,HD;: RETURN 

1200 PRINT@P+63, HE;: RETURN 

1210 PRINT@Q+63,HE;:RETURN 

1220 PRINT@P+6 3 ,HF;: RETURN 

1230 PRINT@Q+6 3, HF; : RETURN 

1240 PRINT@P+63,HG; :PRINT@P+63,HA; :RETU 

RN 

1250 PRINT@Q+63,HG; :PRINT@Q+63,HA; :RETU 

RN 

1260 PRINT@P+63,HH; :PRINT@P+63,HA; :RETU 

RN 

1270 PRINT@Q+63,HH; :PRINT@Q+63,HA; :RETU 

RN 

1280 PRINT@P+250, HI;: RETURN 

1290 PRINT@Q+250, HI;: RETURN 

1300 PRINT@P+250,HJ; :GOSUB1490:GOSUB128 

0: RET URN 

1310 PRINT@Q+250,HJ; :GOSUB1490:GOSUB129 

0: RETURN 

1320 PRINT(§P+250,HK; :G0SUB1 280: RETURN 

1330 PRINT@Q+250,HK; :GOSUB 1290: RETURN 

1340 PRINT@Q+250,HK;:RETURN 

1350 PRINT@P+250,HL; :GOSUB1280:RETURN 

1360 PRINT@P+250,HL;:RETURN 

1370 PRINT@Q+250,HL; :GOSUB1290: RETURN 

1380 GOSUB1020:PRINT@P," "; :PRINT@P+62, 

" ";:PRINT@P+66," "; :GOSUB1000: RETURN 

1390 GOSUB1030:PRINT(§Q," "; :PRINT@Q+62, 

" ";:PRINT(aQ+66 r " "; :GOSUB1010: RETURN 

1400 F0RI=1T05:PRINT@P-1,HG; :PRINT@Q-l f 

HG;:PRINT@P-l f HB;:PRINT@Q-l f HB;:NEXTI:R 

ETURN 

1410 FORI=1TO5:PRINT@P+250,HJ; :PRINT@Q+ 

250 r HJ;:PRINT@P+250 r HI;:PRINT@Q+250 r HI; 

:NEXTI: RETURN 

1420 F0RI=1T05:PRINT@P-1,HE; :PRINT@Q-l f 

HE; :PRINT@P-1,HB; :PRINT@0-l r HB; :PRINT@P 

-l r HF; :PRINT@Q-l r HF; :PRINT@P-1,HB; :PRIN 

T@Q-1,HB; : NEXT: RETURN 

1430 FORI= 1T05:G0SUB1 260 :NEXTI: RETURN 
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1440 FORI=1TO5:GOSUB1270:NEXTI:RETURN 
1450 GOSUB1510:GOSUB1000:GOSUB1010:GOSU 
B1020:GOSUB1030:GOSUB1490:GOSUB1060:GOS 

UB1050:GOSUB1500 

1460 GOSUB1020:GOSUB1030:GOSUB1510:GOSU 

B1410:GOSUB1400:GOSUB1510:GOSUB1380:GOS 

UB1390:RETURN 

1470 GOSUB1510:GOSUB1000:GOSUB1010:GOSU 

B1020:GOSUB1030:GOSUB1490:GOSUB1060:GOS 

UB1050:GOSUB1500:GOSUB1420:GOSUB1510:GO 

SUB1380:GOSUB1390:GOSUB1360:GOSUB1180:G 

OSUB1340:GOSUB1510 

1480 O$=STRING$(30,32)+O$:FORI=1TOLEN(O 

$) :PRINT@785,MID$ (0$ f 1,30) ; :FORR=1TO20: 

NEXTR:NEXTI:GOSUB1510:RETURN 

1490 F0RR=1T05:NEXTR:RETURN 

1500 FORR=1TO300:NEXTR: RETURN 

1510 FORR=1TO30:NEXTR:RETURN 

1994 ' 

1996 ' GRAPHIC DATA 

1997 ' NO. OF ITEMS = 185 

1998 ' CHECKSUM = 22709 

2000 DATA 3, 32, 32, 32, 32,176, 32,1 

60,176, 32, 32,160,144 

2010 DATA 7, 32,176,182,191,185,176, 

32,176,176,182,191,189 

2020 DATA 32, 32, 32, 32,190,191,185,1 

76,176,160,184,187,183 

2030 DATA 189,144, 32, 32,160,190,187,1 

83,180,144, 32,176,158 

2040 DATA 191,173,176, 32, 32,176,190,1 

91,189,176, 32, 32, 32 

2050 DATA 32,191, 32, 32, 32, 5,130,1 

31,191,131,129, 13, 32 

2060 DATA 32, 32,184,191,189,191,190,1 

91,180, 32, 32, 32,139 

2070 DATA 175,191,191,191,189,191,190,1 

91,191,191,159,135,139 

2080 DATA 175,191,191,191,189,191,190,1 

91,180, 32, 32, 32, 32 

2090 DATA 32, 32,184,191,189,191,190,1 

91,191,191,159,135, 32 

2100 DATA 32, 32,139,191,191,191,191,1 

91,135, 32, 32, 32, 32 

2110 DATA 32, 32, 32,139,191,191,191,1 

35, 32, 32, 32, 32, 32 

2120 DATA 32, 32,139,191,191,191,191,1 

35, 32, 32, 32, 32, 32 

2130 DATA 32,139,191,191,191,191,135, 

32, 32, 32, 32,176,187 

2140 DATA 131,183,176 

2996 « ^^ ______ 

2998 • DATA FOR QUIZ 

2999 • ----=-------=-=-------=-=-==-- 



Quiz 



3000 DATA DO YOU SPEAK SO 

UTHERN COUNTRY?? 
3010 DATA AIR, ATMOSPHERE, MELODY, AURA, A 
SPAN OF TIME, 4 

3020 DATA "... <4> A SPAN OF TIME EQUA 
L TO 60 MINUTES; AS IN, IT'LL TAKE ABO 
UT AN AIR TO FINISH THIS JOB ... " 
3030 DATA BALL, A FORMAL DANCE, TO BUBBLE 
WHEN HEATED,A ROUND OBJECT,TO CRY, 2 
3040 DATA "... <2> TO BUBBLE WHEN HEAT 
ED; AS IN, I'M GONNA BALL ME SOME WATE 

D » 
r\ ... 

3050 DATA CORE, HEART, INNERMOST PART, ESS 
ENTI AL MEANING , AUTQMOBI LE , 4 

3060 DATA "... <4> AN AUTOMOBILE; AS I 

N, MY OLD CORE IS DONE QUIT ON ME ... 
ii 

3070 DATA FAR, A CONFLAGRATION, DIFFERENT 
IN QUALITY, REMOTE IN TIME,DISTANT,1 

3080 DATA "... <1> A CONFLAGRATION; AS 
IN, LARD-A-^IGHTY! THE HOUSE IS ON F 
AR! ... " 

3090 DATA FUR, TO LEVEL OUT, ANIMAL HAIR, 
A COAT, DISTANT, 4 



3100 DATA "... <4> DISTANT; AS IN, IT 
'S A FUR PIECE TO THE NEXT TOWN ..." 
3110 DATA HEP, AN OUTDATED SLANG WORD,WI 
SE, ASSIST, UP-TO-DATE, 3 
3120 DATA "... <3> ASSIST; AS IN, HEP 

ME MAKE IT THROUGH THE NIGHT ..." 
3130 DATA LACK, SIMILAR TO, A DEFICIENCY, 
NEED,MISSING,1 
3140 DATA "... <1> SIMILAR TO; AS IN, 

THIS HOUSE LOOKS LACK A TORNADO DONE H 
IT IT ... " 

3150 DATA STEEL, WEAPON, QUIET, HARD METAL 
,TAKE UNLAWFULLY, 2 

3160 DATA "... <2> QUIET; AS IN, HE W 
AS AS STEEL AS A MOUSE ..." 
3170 DATA THANK, EXPRESS GRATITUDE, MEDIT 
ATE, HOLD RESPONSIBLE, PRAYER, 2 
3180 DATA "... <2> MEDITATE; AS IN, L 
ET ME THANK ON IT FOR AWHILE ..." 
3190 DATA WRENCH, A TOOL, TO INJURE,TO TW 
I ST, WASH LIGHTLY, 4 
3200 DATA "... <4> TO WASH LIGHTLY; AS 

IN, I MUST WRENCH OUT MY UNDERWEAR .. 



3210 DATA 



i r r 1 1 1 



WE 




TAPE NOW YOU WILL TOO! 

W!TH CASSETTE ENHANCEMENTS THAT WORK 



SPEED, RELIABILITY, VERSATILITY 

KWICOS: (Mod I) A programmer's program... for novice or expert. 
Not just a simple speed-up (2x to 6x keyboard select) but an easy 
to use operating system that fully supports your cassette recorder. 
Features: save, load, verify, search, chain-load, catalog, and test- 
read of both BASIC and machine code programs; passwords, long 
titles, debounce, self 'backup' feature, and more $24 

KOS3: (Mod 3) All 'kwicos' features at 2200 baud, plus KWI K set 
of: clock and date, cassette high/low, I/O routing, etc $24 

KWI KIT: (mini-system, BASIC programs only) EasyLoad double- 
speed for Mod I, 2200 baud for Mod 3. Many 'kwicos' features 
and upward compatible $9.50 (add $2 for debounce) 

KWINK: 'SYSTEM' duplicator supreme. Makes stand-alone fast- 
loading copy of any 'system' pgm (3 min tape in 44 sec!).. $12 

KLOAD: Makes stand-alone fast-loading copy of BASIC programs. 
Does for BASIC programs what 'kwink' does for SYSTEMS... $12 

KLOAN: (Model 3 only) Makes standard 500 or 1500 baud copy 
of any standard 500/1500 baud SYSTEM program $10' 



TAKE THE (Model 1) LOADS OFF YOUR MIND ! 

Plug in a LEMON-AID LOADER... in seconds...End SYSTEM 
and CLOAD problems for good. PLUS flawlessly load Model 1 
programs at 6x speeds using KWIK Software (see ad at left). 



CTR 80, 
41, 43, 
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816 E. Maupin Street 
P.O. Box 328 
Bolivar, Mo. 65613 

#24 




Model LL... Original 

Great Little Loader. 

$12.99 

Model LLQ...Deluxe 
with handy polarity 
and bypass switch. 
Plus volume control- 
led speaker/earphone 
jack for automatically 
monitoring saves/loads 

£ 1 ft OO MODEL LSS 

^T m^99mm use LemonAid and Soft Switch 

together or use either alone. 

NtW ! Model LSS...Pushbutton and CPU controlled solid state 
"soft" switch. Pre-position tape to start of program without 
danger of "switch hits." Automatic motor-off delay at end of 
programs moves program past pressure rollers eliminating frus- 
trating "pinch hits!" Protects delicate CPU relay contacts too. 
I Use with all Radio Shack and most other recorders. $16.99 

LEMONS TECH SERVICES 



(417) 326-7154 or (417) 345-7643 



325 N. Highway 65 P.O. Box 0429 
Buffalo, MO. 65622 

#24 



Call either number any day (until 10 pm) for orders or information. $1.00 credit on all phone orders. US mail orders postpaid. 
Add $3.00 for COD or overseas orders. Missouri residents add 3.125% sales tax. Satisfaction guaranteed on all products ! 
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PDRIVE 

A library command for disk compatibility 



Model I/III with NEWDOS/80 version 2.0 



Sal Navarro, East Rutherford, NJ 



Today the question of "What is 
compatible," is presenting quite a 
problem to users. It doesn't matter if 
we are using our system for personal 
or business use. We still are faced 
with the problem of compatibility 
between TRSDOS, LDOS, DOS- 
PLUS and NEWDOS/80 versions 
1.0 and 2.0 operating systems. In 
this article I will tell you one of the 
ways that NEWDOS/80 version 2 
has tried to overcome this with a 
library command called 'PDRIVE.' 
I am now using NEWDOS/80 on a 
48K Model III with two 40-track and 
one 80-track disk drives. Below are 
some PDRIVE setup tables that I've 
come across in the short time that 
I've been using it. Before I list the 
specs for PDRIVE, I should tell you 
that the reason that you can't read 
LDOS and DOSPLUS double 
density disks is that they have 
strayed from the norm. The norm in 
the computer industry at present 
appears to be whatever the 
programmer or designer decides 
that it will be at the time that they 
start their project. Now it would take 
approximately 5K of program to 
allow NEWDOS/80 to read their 
type of directory in double density. 
While either one will read between a 
double or single density Model I or 
Model III of their own type, they are 
not able to read one of the others. So 
if you have some disks of DOSPLUS 
or LDOS and want them on 
NEWDOS/80, copy them to single 
density diskettes and then set up the 
PDRIVE to example 1 in the table 
below. This will allow NEWDOS/80 
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to read and copy them onto a 
NEWDOS/80 system or formatted 
disk. One thing that may not be 
clear at first is that you are not 
limited to two letters in the 'TF spec 
of PDRIVE. In the manual it states: 

Tl = etc., Where TI consists of one or 
more alphabetic letter flags chosen 
from, etc. 

This means one or more 
alphabetic letter flags can be used in 
the 'TF spec. Even though all the 
examples consist of one or two you 
can have three if so needed. 
Example 6 in the manual shows: 

PDRIVE, dnl, dn2, TI=AK, TD=E, 
TC=39, SPT=18, TSR=3, GPL=2, 
DDSL=17, DDGA=2 

This specification is for the Model 
III for 5-inch disk, 40 tracks, double 
density, single-sided diskette that 
has track zero formatted in single 
density. Now if you change the 
TI=AK to TI=AL, you have the 
same specification except that you 
can read that same 40-track disk in 
an 80-track drive. 

Examples of PDRIVE Tables 

Example 1 

PDRIVE, 0, 9, TI=A, TC=40, 
SPT=10, TSR=3, GPL=2, DDSL= 
17, DDGA=2 

This spec will allow you to read 
LDOS single density disks and 



DOSPLUS single density disks that 
are 40 tracks. 

Example 2 

PDRIVE, 0, 8, TI=AM, TD=E, 
TC=40, SPT=18, TSR=3, GPL=6, 
DDSL=17, DDGA=2 

This spec will allow you to copy a file 
from a Model III TRSDOS disk. You 
still will not be able to read the 
directory, as the TRSDOS directory 
is not compatible with any other 
system on the market. You can read 
the TRSDOS 'DIR' in one of two 
ways: Boot up the TRSDOS diskette 
and call up the directory, or call up 
'SUPERZAP' and enter the drive 
number from 'DDS' that contains 
the TRSDOS diskette and relative 
sector within that drive. This will 
display the directory while in 
NEWDOS/80 using the above 
'PDRIVE' setup. 

Example 3 

PDRIVE, 0, 7, TI=AK, TD=E, 
TC=39, SPT=18, TSR=3, GPL=2, 
DDSL=17, DDGA=2 

This spec tells your Model III that 
you are using a Model I disk that is 
double density with track zero in 
single density. 

Example 4 

PDRIVE, 0, 6, TI=AL, TD=E, 
TC=40, SPT=18, TRS=3, GPL=2, 
DDSL=17, DDGA=2 



This is the standard Model III setup 
except that you can read the 40- 
track disk in an 80-track drive. 

Example 5 

PDRIVE, 0, 5, TI=AL, TD=A, 
TC=40, SPT=10, TSR=3, GPL=2, 
DDSL=17, DDGA=2 

This spec is the same as example 1 
except that you can read it in an 80- 
track drive. 

Example 6 

PDRIVE, 0, 4, TI=ALM, TD=E, 
TC=40, SPT=18, TSR=3, GPL=6, 
DDSL=17, DDGA=2 

This one is the same as example 2 
except that the disk is read in an 80- 
track drive. 

Example 7 

PDRIVE, 0, 3, TI=A, TD=E, TC=80, 
SPT=18, TSR=3, GPL=2, DDSL= 
17, DDGA=2 

This is a standard setup for the 
Model III for an 80-track drive. 

Example 8 

PDRIVE, 0, 2, TI=A, TD=E, TC=40, 
SPT=18, TSR=3, GPL=2, DDSL= 
17, DDGA=2 

This is the 40-track standard setup. 

Here's another hint. If you have 
two drives on your system, set up the 
'SYSTEM' options command of 
'AL=2.' This will give you the use of 
the other seven PDRIVE tables as a 
storage area for the tables that you 
are likely to be using at different 
times. If you have three drives, set 
'AL=3.' When you need a different 
drive option, you only type 
'PDRIVE, 0, 1=7' and presto, you 
are ready to go. By resetting the 
system 'AL' function, you not only 
gain the extra storage space, but 
your system need not go looking 
through the extra drives that you 
don't have, or look for a file on a 
drive that doesn't exist. This will 
even increase your disk I/O time. 
Not by very much but every little bit 
helps. Hope these little tidbits 
help. ■ 






TRIPLE YOUR COMPUTERS POWER 



80 CHARACTER VIDEO DISPLAY 

* 80 x 24 display with upgraded monitor. 

* Simple to install, just plug into a HOLMES EXPANSION MAINFRAME. 

* Model I graphics or Model II reverse video. 

* Basic programs work without modification. ,; 

* Memory mapped - uses empty address spaces in the Model I/PMC or 
"overlays" keyboard and video in Model I or Model III. 



SPEED UP YOUR COMPUTER 2 TO 3 TIMES - ADD A SPRINTER 

\* Plugs directly into Z80 socket - no soldering required. 

;* Select 2/3 to 3 times normal speed with hardware or software. 

\ * Automatic switch to normal speed during disk and I/O operation (optional) 

l* Trouble free, tested Z80B microprocessor included. : 

i* TRS 80*" Expansion Interface modification available. 

\* Versions available for TRS 80® Model I, III, Xerox®, PMC®. 

Price $99.50 



ADD UP TO 4 DISK DRIVES WITH HOLMES DISK CONTROLLER 

* Any combination of 5Va" or 8" drives. 

* Single or double density. 

* Simple installation - just plug into HOLMES EXPANSION MAINFRAME 

* Printer port included. 

* Compatible with all standard hardware and software. 

* Reliable state-of-the-art LSI data separator. 

* Quality gold plated connectors. 

* DD adapter for the TRS 80® Expansion Interface (E.I.) available. 

TRS 80® El Adapter $99.50 Single Density $148.50 

Double Density j $219.00 



INCREASE INTERNAL MEMORY TO 48K - RELIABLY 

* Plugs directly into the keyboard unit — No soldering required. ' ; 

* Reliable because it does not use an expansion buss to drive the memory 
system. 

* Power supply loading is not a problem. '- 

* Only the finest (tested & approved) materials used - each unit tested before 
shipping. 

* No Expansion Interface needed. 

* Compatible with all HOLMES products. 

IM-1 $ 86.00 32K (Without RAM . $66.00) 

IM-2 $139.00 48K (Without RAM $99.50) 



HOLMES EXPANSION MAINFRAME RELIABLE COMPUTER 
EXPANSION. WHAT YOU WANT - WHEN YOU WANT IT. 

Pictured here is Holmes Expansion Mainframe with the DISK CONTROLLER 
and 80 character modules installed. The keyboard has 48K and speed-up 
SPRINTER installed. All that is exposed is the "box" and cables. 

Look inside the "box". This picture shows the EXPANSION MAINFRAME with 
only one of the 4 possible modules "plugged in". 
. * Has its own power supply . Doesn't compete with the computer lor power. 
/ * Simple plug in modules. You add to the system only as your needs demand. 

* Reliable gold plated connectors. 

* Sturdy metal case suppresses noise. 

COMPACT, EFFICIENT, SIMPLE. IT WORKS — AND KEEPS ON WORKING. 

Price \ $150.00 

SERVICES: 

Complete TRS 80 system update and repair. 
OTHER PRODUCTS: 

• RS-232 • Extended memory • Self-contained drive/controller • Single module case • Hard disk 

One year warranty on all Holmes products. \ 

Terms: VISA, MASTER CHARGE, CASH, COD. Add $9.00 shipping for the EXPANSION MAINFRAME and $3.00 for other 
products in US & Canada. All others add 15%. ' 
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3555 SOUTH 3200 WEST 
SALT LAKE CITY, UTAH 84119 



PHONE 801-967-2324 



dealer inquiries invited / prices subject to change without notice 
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Simple Joe 



Accompany your stereo with graphics 



Model I 



Ron Goodman, North Hollywood, CA 



"This is Doctor Demento on KMET Los Angeles. Once 
again it's Stevens and Grdnic with 'Commercials on 
45'." Yes, it was Sunday night in North Hollywood, 
California, and time for the Doctor Demento show, a 
special show where weird songs and parodies are played 
for four hours. While I was sitting there I said, "Boy, 
wouldn't this be good if it were a live show." The closest 
though, that I could come to a live show was to draw a 
face on my TRS-80 screen, and watch. But I wasn't 
satisfied, and off I went to write the program, Simple 
Joe. 

Simple Joe is a program in which a picture of a man is 
on your video display. But rather than sitting there like 
a bunch of dead CHR$s, he moves his mouth in time 
with the talking or music that your radio makes. The 
program is rather short, and the hardware isn't really 
much at all. 

Go over to your stereo. Find the wire coming from one 
of the two speakers. If you have four speakers, use the 
primary speakers (sometimes called A speakers or main 
speakers). Find out what type of plug it is that connects 
to your stereo system, go to your local electronics store, 
and buy an equivalent plug. Connect two wires to each 
terminal of the plug. Make sure the two wires are long 
enough to reach from the back of your stereo to your 
computer. I use zip cord to avoid dangling wires, but you 

Figure 1 

EAR PLUB FROM TAPE RECORDER 




PLUS TO STEREO OUTPUT 



can use separate wire if you wish. The next thing you'll 
need is a pair of wires with alligator clips at both ends of 
each of them. Clip an end of one of the wires to either of 
the wires coming from the stereo plug. Clip the other end 
to the lower portion of the EAR plug from the TRS-80. 
Clip one end of the remaining wires to the other wire 
from the stereo plug. And finally, clip the last alligator 
clip to the upper portion of the EAR plug. 

Now type in the program. When you RUN the 
program, a stream of numbers will start going up the 
screen. If your stereo is off, the numbers should all be 
127s. Put the stereo plug in the socket that your 
speaker's plug normally goes to (it doesn't matter which 
of the two speakers you remove). Turn on your stereo, 
and tune to a radio station. Turn the volume all the way 
down. The numbers on the screen now should be 127s. 
Turn the balance so that it is right in the middle. Slowly 
start turning the volume up until 255s are printed with 
the 127s. The best setting will be when there is a fairly 
even mix between 127s and 255s. If the volume is too 
high, and the 127 and 255 mix is good, turn the volume 
down a little and adjust the balance towards the side 
from which you removed your speaker. When your 
stereo is at a good volume and the 127 and 255 mix is 
good, press ENTER. Simple Joe will appear, and 
assuming you did everything well, he will be talking 
and singing right along with your radio. 

What is going on? Well, the cassette port has the 
ability to sense sound, just as it does when you are 
loading a program or data into your computer. Simply, 
when there is sound, the leftmost bit goes on, and 
changes the value from 01111111 (127) to 11111111 
(255). This program constantly changes the value at the 
port back to 127, so when INP(255), where 255 is the 
number for the cassette port, is equal to 255, there must 
be sound. Hence, Simple Joe's mouth is opened. When 
INP(255) is 127, Simple Joe closes his mouth. 
By storing the values (either 127 or 255) of this port, 
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Simple Joe 



there is another possible use for this hardware setup. It 
might be used for voice or musical recognition. By 
comparing a list of data to incoming data, it is possible 
that the incoming data could be recognized as the 
original. I have done such experiments, and found that 
when the song I played to my computer was the same, 
the list was generally between 65% and 85% the same as 
the incoming data. And when the song was different, 
the range was between 40% to 60% the same. While this 
is not extremely accurate, the potential is there for 
having some remarkable voice/music recognition 
experiments. 

Program Listing for 
Simple Joe 

5 REM * BY RON GOODMAN 

10 CLS:CLEAR200:DEFINTA-Z:M=1 

20 FORX=0TO6:FORY=0TO9:READA: A$ (X) =A$ (X 

)+CHR$(A):NEXTY,X 

30 A=INP(255):OUT255,0 

40 PRINT<§25,"SET VOLUME & BALANCE. THE 

N PRESS ENTER"; 

50 PRINT@960,"VALUE";A 

60 IFINKEY$OCHR$(13)THEN30 

70 CLS:A$="* ":A$=A$+A$+A$+A$:A$=LEFT$( 

A$+A$+A$+A$,31) 

80 PRINTCHR$(23);A$:PRINT@960,A$;:A$="* 

"+STRING$ (29,32)+"*" 



90 FORX=64T0896STEP64:PRINT@X, A$; :NEXTX 

100 PRINT@140,"S I M P L E";CHR$(195);" 

J E"; 

110 FORX=0TO2:PRLMT@22+64* (X+6) ,A$ (X) ; : 

NEXTX:A=INP(255):IFA=63THENM=1ELSEM=0 

120 A=INP(255):OUT255,8 

130 IFA=63ANDM=1THENM=0:PRINT@598,A$ (3) 

;:PRINT@662,A$(4); 

140 IFA=191ANDM-=0THENM=1:FORT=1TO50:NEX 

TT:PRINT@598,A$(5);:PRINT@662,A$(6); 

150 GOTO120 

10000 DATA160, 140, 131, 131, 131, 131, 131,1 

31,140,144 

10010 DATA149,32,130,129,32,32,130,129, 

32,170 

10020 DATA149,32,32,32,172,156,32,32,32 

,170 

10030 DATA149,32,176,176,176,176,176,17 

6,32,170 

10040 DATA130, 140, 176, 176, 176, 176, 176, 1 

76,140,129 

10050 DATA149,32,152,131,131,131,131,16 

4,32,170 

10060 DATA130, 140, 178, 188, 188, 188, 188, 1 

77,140,129 

20000 CLS:INPUTA:PRINTCHR$ (23) ; :OUT255, 

A:INPUTX$:GOTO20000 ■ 
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ADVENTURE INTERNATIONAL 






ELIMINATOR 


19.95 


15.95 


STAR SCOUT 


14.95 


12.25 


ADVENTURES 112 


ea. 19.95 


15.95 


BIG 5 






SUPERNOVA 


15.95 


12.95 


ATTACK FORCE 


15.95 


12.95 


ROBOT ATTACK 


15.95 


12.95 


MED SYSTEMS 






DEATH MAZE 5000 


14.95 


12.25 


LABYRINTH 


14.95 


12.25 


ASYLUM 


19.95 


16.00 


COMPUTINGS 






WIZARD'S MOUNTAIN 


14.95 


12.00 


DARK STAR 


24.95 


17.50 


TOWER OF ORLANDOR 


19.95 


14.50 


ROMAN CONQUEST 


14.95 


12.00 


LOGICAL SYSTEMS 






LDOS(mod1 &III) 


129.00 


99.00 


ACORN SOFTWARE 






INVADERS FROM SPACE 


14.95 


11.75 


SPACE ROCKS 


19.95 


15.95 
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19.95 


15.95 
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20.00 


AUTOMATED SIMULATIONS 

TEMPLE OF APSHAI 
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SCARFMAN CASS 


39.95 
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29.95 
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15.95 
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33.95 
33.95 
25.95 

15.95 
13.50 
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Notes 



This month's set of Notes covers a variety of topics. 
Thanks to many of you for sending in tid-bits and 
notices. 

In March '82, we published a program that enabled 
you to print graphics on your MX-80 printer. Mr. Henk 
C. Visser of The Netherlands has gone one better. If you 
are using NEWDOS/80 version 1.0, change bytes B9 
and BA in SYSO/SYS, sector 2 from 3E2E to C620. For 
NEWDOS/80 version 2.0, change bytes Cl and C2 in 
SYS3/SYS, sector 4 from 3E2E to C620. For the 2.0 
version you will also need to enter under DOS Ready the 
command SYSTEM AX=127. The changes can easily 
be made with SUPERZAP under the DFS mode. After 
the changes are made, both systems will now print 
graphics and lowercase when JKL is pressed. However, 
do not use the TRS-80 setting of your MX-80 printer. 
Obviously, this permanent patch is preferrable to 
having to run the program every time you desire 
graphics or lowercase. Don't forget to reboot your 
system before trying the JKL function. 

Lemons Tech Services, Buffalo, MO, has notified us 
that their LemonAid Loader demonstrates marginal 
performance with the early cassette recorders (Radio 
Shack CTR-41). They recommend that if your CTR-41 is 
not working properly with the LemonAid that you 
replace the recorder with the new CTR-80 or 80A. 

Mr. Daniel Schultz, ICM Industries, Carmel, IN, has 
sent in a marvelous patch for the Model III DEBUG 
utility. The DEBUG that is supplied on TRSDOS will 
not operate on memory below 5600H. This three-byte 
patch will solve the problem: 

Under TRSDOS Ready type: 

PATCH *5 (ADD=4EDA, FIND=56, CHG=00) 

PATCH *5 (ADD=4F00, FIND=56, CHG=00) 

PATCH *5 (ADD=5069, FIND=56, CHG=00) 

Now your DEBUG utility can display all of memory and 
alter any part of RAM! 

It's the little things that can get to you. In generating 
listings, we run the programs out on a Model III 
whenever possible. To fit column width requirements, 
the FORMS command is used to set the printer. After 
much tribulation, we tracked down an undocumented 
bug. The FORMS command prints two extra characters 
besides those specified in the WIDTH option. So, when 
requesting a width of 39, be sure to specify only 37. 
Radio Shack has verified the problems, and according 
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to them, that is the way it is designed to work. They have 
put the notice in the latest edition of the owner's manual. 
Makes us wonder why a patch wasn't offered instead of 
a "mention four lines from the bottom of page 49 in the 
new manual." 

Mr. Michael L. Phillips, Softronics, Inc., Tulsa, OK, 
offers a change to our program "Short Leaders for Data 
Tapes," April '82. For those of you with new ROM 
releases of the Model I (those that say MEM SIZE?), the 
following should work. In the assembler listing, change 
line 440 to read JP NZ,207CH and change line 480 to 
read JP 2079H. The BASIC listing is altered by 
changing the values in line 300 from 155 to 1 24 and from 
150 to 121. 

As one last piece of information, Mr. Deitmar Goltz of 
West Germany observed an intriguing characteristic of 
the Model I. (Model III owners will have trouble with 
automatic key repeat.) Various technical references 
have shown the following keyboard matrix: 

Figure 1 




When depressing two keys at once, you can get 
unexpected results. By holding down any two keys from 
the same column (e.g., Q and Y), when you depress a 
third key it will result in two characters being displayed. 
If the third key being depressed comes from the same 
row as the Q, then the extra letter displayed is from the 
same row as the Y. So, holding down Q and Y and then 
depressing P will result in an X at the same time. 
Depressing an S,T,U or V while holding the Q and Y 
keys will give you arrows. It makes for fun — we leave 
its worth up to some inventive programmer. 

Thanks again for the contributions. Your ingenuity is 
heartwarming. ■ 
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MANAGEMENT 

1 I 

e make it easy! Plus Accounting Software Packages are menu- 
driven for easy and confident operation. Our extensive documen- 
tation for installation and operation is easy to understand. And, 
Plus is easy to buy, we are amazingly inexpensive. The Plus techni 
cal support package with our 800 number "hot-line" rpakes it easy 
to stay up-to-date and informed. 

Select a package for a specific app ication, or get the total system. 
You can be sure your professionally-designed Plus Accounting 
Software Package will provide efficient, cost-effective financial 
management for your most demanding needs. Make a sound 
business decision today. ..make your financial control and planning 
management a Plus. We speak your language. 

[J 

PLUS FINANCIAL AND ACCOUNTING SOFTWARE PACKAGES AVAILABLE: 

• GENERAL LEDGER • ACCOUNTS RECEIVABLE 

• ACCOUNTS PAYABLE • FIXED ASSETS 

• PAYROLL • EASYTRAK™ ACTIVITY MONITORING SYSTEM 

packages menu-driven. Each accounting package is available 
'stand alone", or can automatically post to General Ledger 
Flexible user-defined file sizes for flexibility. Complete with 
extensive documentation and thorough installation guide. 
Furnished on disc. 





PLUS PROGRAM AVAILABILITY: 

TANDY MODELS II & I 
THE IBM PERSONAL COMPUTER 
• 8" CP/M 2,2 VERSION 
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PLUS COMPUTER TECHNOLOGY, INC. 

6900 North Austin Avenue — Chicago, IL 60648 

1-312-647-0988 
1-800-323-4240 (Outside Illinois) 

WHAT WE DO FOR YOU IS OUR 
MOST IMPORTANT PRODUCT. 
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Whether you own a Model I now, or are thinking about 
your first computer, take a look at the Model III. You'll 
find more computing power, more advanced features, 
more versatility right at your fingertips— and for a lot 
less money than last year. The reason? We've cut the 
prices on our disk-based TRS-80 Model Ills. 

■ 

The "Extras" Are Built-in. To complement the stand- 
ard 48K RAM, we add one or two built-in double-density, 
40-track &U" disk drives— each with 184K of on-line 
data storage. The 65-key typewriter-style keyboard (with 
datapad) and 12" high-resolution monitor are built into 
the handsome, space-saving cabinet. Standard fea- 
tures include upper and lower case, 64-character wide 
display, repeating keys, real-time clock, parallel printer 
interface, special graphics characters and screen print- 
ing. The RS-232C serial interface (standard with the 
two-disk version) lets you communicate with other com- 
puters by phone — just add a modem. 

Power to the Programmer. Our TRSDOS™ Operating 
System and Disk BASIC language will expand your 
programming horizons. They're included, along with an 
owner's manual and comprehensive reference manual. 
TRSDOS includes DO Files for automatic execution of 
previously stored commands, FREE space map, and 
more. Disk BASIC has an extended CMD library that 
allows you to sort strings, protect from BREAK, cross 
reference string variables — and more. 

Expand Your System. You'll find it easy to add addi- 
tional disk drives— up to 737K total storage— or a 
printer, plotter, digitizer, modem and more. And they're 
all available at a Radio Shack Computer Center, store or 
participating dealer near you. 
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48K 1-Disk Model III 
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48K 2- Disk Model III 
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New Low Prices on "Add-Ons"! 

Upgrade your Model III or I with Radio Shack-supported 
TRS-80 disk drives— and save $50 on each! Save $50 on 
Model I memory kits, too! 

Model III Disk Drive Kit 1 . Internal. 40 track, double-density, 
184K. Includes TRSDOS and Disk BASIC. Was $849.00 in 

RSC-7. 26-1162 799.00* 

Disk Drive Kit 2. internal. Was $399.00 in RSC-7. 

26-1163 349.00* 

Disk Drive Kit 3. External. 6 1 /4x3V2X 14 1 /2". ILL listed. 

Was $499.00 in RSC-7. 26-1164 449.00 

Disk Drive Kit 4. For Model I or III. External. Was $499.00 in 

RSC-7. 26-1161 449.00 

Model 1 16K RAM Kit. Use with Expansion Interface. Was 

$99.00 in RSC-7. 26-1102 49.00* 

Model I 16K RAM and Keypad. Was $180.00 in RSC-7. 
26-1101 130.00* 



Great New Disk Games! 

Zork™. Test your wits and courage in an exciting fantasy 
world with this adventure game. 

For Model III. Requires 32K 1-Disk. 26-1951 39.95 

For Model I. Requires 32K 1-Disk, Level II BASIC. 
26-1950 39 - 95 

Monty 1 " 1 Plays Monopoly". Entertaining, expert opponent. 
Requires 32K 1-Disk Model III. 26-1952 34.95** 

Monty™ Plays Scrabble^. A challenge to Scrabble fans. 
Requires 32K 1-Disk Model III. 26-1954 34.95** 

Model I Double-Density Drive Kit 

Backed by Radio Shack. Allows use of double-density disks in 
current drives. With 35-track drive, storage increases from 
84K to 152K; with 40-track, to 1 84K. Existing Model I software 
runs "as is" in single-density mode. 26-1143 149.95* 
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ir Hardware, Software and Accessories Make 

le TRS-80 the Best Supported Microcomputer in the World! 







The biggest name in little computers 

A DIVISION OF TANDY CORPORATION 



1 
Send me your free TRS-80 Computer Catalog today! I 

Mail To: Radio Shack. Dept. 83-A-181 • 

300 One Tandy Center, Fort Worth , Texas 761 02 



NAME 




ADDRESS 
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| CITY 
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STATE 



ZIP 
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* Price does rat induce required installation ' * Require s boardgame Retail prices may vary at individual stores and i 
dealers Some terns may require special order ZQRK is a trademark of infocom Inc Monty is a trademark of Rrtarn 
Corp Scrabble is a registered trademark of Setahow and Richter Co Monopoly is a registered trademark of Parker 
Brothers, Inc. 





Convert your TRS 

into a World Class Computer 




REDUCES EYE FATIGUE 



AND DOESN'T FLICKER 





. . .with LSI's new Soft •View Replacement CRT. . . 

The black & white "TV Screen" CRT {picture tube) which came with your TRS-80*model II or III is an inexpensive 
rapid "P4" Phosphor CRT intended for TV use. The display is actually strobing 60 times a second. No amount of "green 
plastic" will stop this strobing or eliminate the eye fatigue it causes. But a r\ewSqft*View CRT display tube with a slower 
decaying, colored Phosphor will 

• Available in slow-decay green (similar to new IBM* and APPLE lll*monitors} or medium decay "European 
Orange" (easy on the eyes, elegantly beautiful, and the standard for CRT displays in Europe) 

• Leaded glass stops X-ray emission 

• Optional Anti-Glare Frosted Glass available to reduce eye strain from glare 

• Easy installation — tube comes with pre-mounted hardware 

• 30-Day Money-Back Guarantee 

• Ideal for Word-Processing & Programming, fast enough for Games & Graphics 

• Finest quality double-dark glass and phosphor fields make the letters seem to be coming out of black space 



Try This Test: 




LSTs new Voft-Yieu CRT 



Turn the brightness control on 
your TRS 80Vn the way up. Wave 
your hand up and down in front 
of the screen, See how jerky it 
seems? Just like in front of a 
strobe light! That's because the 
screen actually rs strobing at you, 
A slower-phosphor CRT will 
reduce that troublesome strobe 
effect. That's why most of the 
newer monitors, from IBM* to 
Apple III* are using the new 
slow-phosphor CRT's. 



I LSI SYSTEMS Soft -I 



9 ■ 



□ #GN42 Green Phosphor $79.95 

□ #GN42G Green Phosphor with antiglare $89.95 

□ #OR34 Orange Phosphor $89.95 

□ #OR34G Orange Phosphor with anti-glare $99.95 
ADD $7 FOR PACKAGING AND HANDLING AND UPS SHIPPING 



:%Lansley-St.Clair 
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nstrumentation 
Systems. Inc. 



To Order Call: 

1-800-221-7070 
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Dealer Inquiries Invited 
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*IBM\ APPLE* and TRS-80* are trademarks of IBM, APPLE Computer & TANDY Corp. 
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Sweet talker 

Teaching your TRS-80 to speak 



Model I/III 



Edward M. Roberts, Glen Head, NY 



Recently, I ran across a crumbling 
artifact of a time long, long ago: a 
Scientific American of September, 
1972. On page 165 was an ad that 
began: "Votrax — world's first low- 
cost miniaturized voice synthesizer, 
opens communication channels 
between man and machine." 

Beneath that terse headline was a 
picture of three large circuit boards. 
The text said the size of the device 
was 10x11x14 inches and the cost 
was "under $2000 in production 
quantities." 

Currently, Votrax offers the same 
capabilities compressed into a 22- 
pin DIP, designated the SC-01. 
Steve Ciarcia, writing in BYTE, 
(September 1981), described his 
implementation of this chip. A 3x4- 
inch circuit board with four other 
ICs and a few passive components 
comprise the entire system, 
including a parallel interface and a 
one-watt audio amplifier (excluding 
the power supply). 

Ciarcia' s design, which he calls 
"The Sweet Talker," is available 
from The Micromint, Inc. Tempted 
beyond endurance by the $139 price, 
I ordered an assembled and tested 
unit which, together with a nice 
little power supply and shipping, 
brought my bill to $176. 

We are at the dawn of the age of 
the talking gadget. The best known 
is undoubtedly Texas Instruments' 
"Speak 'n Spell." If you haven't 
played with one of these, you owe 
yourself a trip to the nearest toy 



store. National Semiconductor's 
"Digitalker" is somewhat similar to 
TI's synthesizer, and is offered by 
several mail order advertisers in 
TRS-80 compatible circuits. Almost 
all such devices have a limited 
vocabulary stored internally. This 
is fine for dedicated applications, 
but severely limits usefulness as a 
general-purpose peripheral. 

The Votrax SC-01 is quite 
different. It will produce, on request, 
any of the sounds needed for 
English speech and will blend each 
sound into the next, just as a human 
speaker does. The sounds are 
generated by sending appropriate 
ASCII code to the Sweet Talker 
board via the TRS-80's parallel 
printer port. Thus, the simple 
command, LPRINT "ittkCjzkMC" 
will cause the device to say, "Your 
turn." Before I go further, let me try 
to answer the burning question: 
What does it really sound like? 

Well, first off, there's no doubt it's 
a machine talking. The intelligence 
we perceive in the inflections of the 
human voice is simply not there. 
"Drop dead, dammit!" and "Peace, 
brother" come out in the same 
emotionless tone, saved from an 
absolute monotone only by Votrax's 
"automatic inflection." 

Comprehension depends greatly 
on context. If your new Buick 
suddenly said, "Limes halt scurvy," 
there's not a chance in a hundred it 
would be understood. So, keeping in 
mind that speaking comprehension 



is poorer than reading, I would rate 
the intelligibility of The Sweet 
Talker as excellent. I encoded the 
following: "I am a TRS-80 computer, 
my master is Ed Roberts, my name 
is R17 D23 — do you know my uncle 
R2 D2?" My wife had some difficulty 
with this, but a passing telephone 
repairman understood it instantly. 
On the other hand, the Lord's 
Prayer brought forth from my wife 
the comment that I must be doing 
something better because it was 
now so easy to understand. The 
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Sweet talker 



complete programmability of the 
SC-01 makes it possible to 
compensate for any such problems 
by choice of vocabulary, word order 
and even emphasis (which is 



Table 1. Phoneme C 


hart 


Phoneme 


Phone ma 


Duration 


Example 


Cod* 


Symbol 


Imt) 


Word 


00 


EH3 


59 


jacket 


01 


EH2 


71 


enlist 


02 


EH1 


121 


heavy 


03 


PA0 


47 


no sound 


04 


DT 


47 


butter 


05 


A2 


71 


made 


06 


A1 


103 


made 


07 


ZH 


90 


azure 


08 


AH2 


71 


honest 


09 


13 


55 


inhibit 


0A 


12 


80 


inhibit 


08 


11 


121 


inhibit 


0C 


M 


103 


mat 


0D 


N 


80 


sun 


0E 


B 


71 


bag 


0F 


V 


71 


van 


10 


CH* 


71 


chip 


11 


SH 


121 


shop 


12 


Z 


71 


£00 


13 


AW1 


146 


lawful 


14 


NG 


121 


thing 


IS 


AH1 


146 


father 


16 


001 


103 


looking 


17 


00 


185 


book 


18 


L 


103 


Jand 


19 


K 


80 


trick 


1A 


J* 


47 


judge 


IB 


H 


71 


hello 


1C 


G 


71 


get 


ID 


F 


103 


fast 


1E 
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paid 


IF 


S 


90 


pass 



Phoneme 


Phoneme 


Duration 


Example 


Code 


Symbol 


(ms) 


Word 


20 


A 


185 


dajr 


21 


AY 


65 


day. 


22 


Y1 


80 


jrard 


23 


UH3 


47 


mission 


24 


AH 


250 


mop 


25 


P 


103 


past 


26 





185 


cold 


27 


1 


185 


. pin 


28 


U 


185 


move 


29 


Y 


103 


any 


2A 


T 


71 


tap 


28 


R 


90 


red 


2C 


E 


185 


meet 


2D 


W 


80 


win 


2E 


AE 


185 


dad 


2F 


AE1 


103 


after 


30 


AW2 


90 


salty 


31 


UH2 


71 


about 


32 


UH1 


103 


.uncle 


33 


UH 


185 


cup 


34 


02 


80 


for 


35 


01 


121 


aboard 


36 


IU 


59 


you 


37 


U1 


90 


you 


38 


THV 


80 


the 


39 


TH 


71 


thin 


3A 


EH 


146 


bird 


38 


EH 


185 


e« 


3C 


El 


121 


t>* 


3D 


AW 


250 


call 


3E 


PA1 


185 


no sound 


3F 


STOP 


47 


no sound 



determined more by duration than 
loudness). 

The device can speak in either of 
two programmable pitches, 
describable as baritone and tenor. A 
potentiometer on board offers pitch 
adjustment. An aggressive 
experimenter would find it possible 
to secure complete control over pitch 
since the frequency-determining 
clock can be controlled externally. 

Most methods of indicating 
pronunciation use symbols not 
available on a computer keyboard. 
Consequently Votrax evolved the 
system shown in Table 1. Observe 
that it is merely a tool or mnemonic 
device; the actual instruction to the 
chip is a one-byte code. In the case of 
the TRS-80/Sweet Talker, this code 
corresponds to the ASCII 
characters 64 to 127 for the low 
pitch, and the numbers 192 to 255 for 
high pitch. 

The Votrax phoneme notation is 
logical and easy to learn. Although 
there are about 45 sounds in 
English, Votrax has expanded this 
to 64 by offering vowels in different 
lengths, as well as two different 
pauses and a stop. Kathryn Fons 
and Tim Gargagliano (employed by 
Votrax as speech scientist and 
computer engineer, respectively) 
prepared an article, "Articulate 
Automata — An Overview of Speech 
Synthesis." It appeared in the 
February, 1981, BYTE and is well 
worth searching out. It contains 
much specific information on using 
the Votrax synthesizer and 



S«?S^«i^&^^ft:iii'SM ! -W: 







msmmm-i 




translating words into a suitable 
phonetic form for synthesis. A 
footnote comments that these two 
people have a particular interest in 
the needs of speech handicapped 
and they welcome inquiries in this 
area. 

Two somewhat unrelated 
comments are in order here. First, 
Radio Shack's discontinued Voice 
Synthesizer, although similar in 
principle to the Sweet Talker, was 
connected differently and used 
different ASCII characters to 
encode the phonemes. Second, the 
Votrax "TYPE-'N-TALK," now 
being advertised for $375, is a 
complete unit with the added 
capability of direct translation of 
text to speech. That is, if you type, 
"Mary had a little lamb," it will say, 
"Mary had a little lamb." 

Interfacing The Sweet Talker to 
the TRS-80 is fairly easy. Note, 
however, that it consists only of a 
completed circuit board. You must 
make up the connections and supply 
a speaker yourself. Soldering skills, 
the ability to understand simple 
schematics, and an elementary 
understanding of a parallel 
interface are desirable. Micromint's 
nicely prepared manual is helpful. 

"The Sweet Talker" connects 
directly to the parallel printer port of 
the Model III or the expansion 
interface box of the Model I. An 
unexpanded Model I would require 
the active printer cable. Since I 
already had a printer connected to 
my Model III, I made a "Y" 
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/T/must precede ICH/ to produce CH sound. 
/D/ must precede /J/ to produce J sound. 
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The Sweet Talker board mounted in the bottom half of a Radio Shack case, with the 
power supply in the top half. The pulse extender (see text) was assembled on a piece of 
perf board and mounted on the connector with foam tape. 



Sweet talker 



connection by installing a 25-pin D- 
submini male connector (Radio 
Shack #276-1559) across the first 25 
lines of my printer cable. The 
matching female connector (#276- 
1565) plugs into this. An 18-inch 
piece of 25-conductor cable, made up 
from #278-771, and a card edge 
socket (#276-1550) completed the 
connection. Both printer and Sweet- 
Talker remain connected at all 
times, with selection being made by 
switching on the desired device and 
turning off the other. 

To complete the job, 1 bought 
Radio Shack's Deluxe Project Box 
(#270-218), an LED pilot light, a 
mini jack for the speaker connection 
and a miniature 10K panel mounted 
volume control with a DPST switch 
(#271-215). This replaces the PC- 
style pot on the Sweet Talker board 



and switches both the 5- volt and 12- 
volt lines. My Radio Shack bill for 
all this was a mere $30. 

The photo shows the box with the 
top open and the power supply 
mounted on the top half of the 
cabinet. Along the connector is 
mounted a little piece of perfboard — 
my only real criticism of The Sweet 
Talker. The manual explains that 
the strobe input line must remain 
low for 100 microseconds, but that 
the pulse from the TRS-80 is only 
one microsecond or so. It is 
necessary to make up a little one- 
shot or pulse extender circuit 
consisting of an IC, a resistor and a 
capacitor. Micromint supplies the 
parts, and assembling them is easy 
enough, but they really should have 
been provided on the main board. 

The Micromint power supply 



consists of a heavy wall transformer 
and a well-made board rated at 5 
volts — 300 MA, and +12 and -12 
volts at 50 MA each. I measured The 
Sweet Talker as drawing 80 MA at 5 
volts and 30 MA at +12 volts. Many 
users may have alternatives to 
paying $29 (kit) or $37 (assembled 
and tested) for the Micromint 
supply. 

I have a final note of caution. As 
I've grown accustomed to its voice, 
I'm beginning to think of it as a real 
person in there ... a good friend . . . 
an old friend who talks to me . . . ■ 

Sweet Talker is available for $139 
from The Micromint, Inc., 917 
Midway, Woodmere, NY 11598, 1- 
800-645-3479 (orders), 1-516-374- 
6793 (information). 



AFRAID OF HIGH SOFTWARE PRICES? 

TRS . 80 6 to 8 programs on CASSETTE every MONTH 

._ for (shudder) about 75 cents per program! trs-80 






Writing your own programs can be a scary proposition. And typing 
in a program from a hardcopy listing is a real nightmare! Bring on the 
dawn with a subscription to CLOAD or CHROMASETTE Magazine. 

CLQAD and CHROMASETTE Magazines are monthly cassettes 
containing 6 to 8 ready-to-load programs apiece. Programs that take 
advantage of features unique to each computer (CLOAD for the 
Model I and III, CHROMASETTE for the Color Computer). Programs 
that even extend the capabilities of your computer beyond its 
manual's dark type! Quality game, tutorial, practical, and utility prog- 
rams that reach your home by First Class Mail each month. 

Don't be afraid. Get a subscription to CLOAD or CHROMASETTE 
Magazine. Or just enjoy a little taste and sink your fangs into a back 
issue. It von't take a bite out of your vallet . . . 




The Bottom Line: 

I year (12 issues) 
6 months (6 issues) 
Single copies Back issues 

Good Games # I 
Adventures #1 



The Fine Print 

All issues from Oct 78 on available 
- ask for list (24 Level I issues also). 
Programs are for I6K Level II, 16K 
Model III. and occasionally for disks 
TRS-80 is a trademark of Tandy Corp 

#30 

P.O. Box 1448 

Santa Barbara, CA 93102 (805) 962-6271 



550 00 
S30 00 
S 6 00 

512 00 

513 00 



California residents add 6% to 
single copies North America — 
First Class Postage Included Over 
seas — add S 10 to subscriptions, 
and SI to single copies 
SentAO rate 




The Bottom Line: 

I year ( 1 2 issues) 
6 months (6 issues) 
Single copies 

Calif residents add 6% to single 
copies 

North America — First Class Post- 
age Included 

Overseas — add s 1 to subscrip- 
tions, and SI to single copies 

Sent AO rate „_ „ .„„_, 
P.O. Box 1087, 

Santa Barbara, CA 93102 

MasterCard/ Visa (805) 963-1066 



S45 00 
S25 00 
S 5 00 
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An evaluation of Plus Computer Technology's General Ledger 



Model III, 48K with 2 disks 



80 U.S. Staff 
Based on notes and observations by John Strader, CPA 



The problem of finding just the 
right business software for micro- 
computers seems to have been with 
us since day one. This is due, no 
doubt, to the diversity of business 
operations. We seem to expect the 
software to conform to our way of 
doing business, and are prone to 
adapt our business operations to 
available software. 

Another problem with business 
software is that it is usually rather 
expensive, and one must pay the 
piper in order to find that it is not 
what was expected, or that it will not 
do the job. 

We were told, by several readers, 
of the merits of Plus Computer Tech- 
nology, Inc., and their integrated 
business software for the Model II 
and III. Accordingly, we solicited a 
Model III system from them. In 
addition to several days of operation 
at 80-U.S. Journal, we asked our 
CPA, John Strader, to use it and 
comment on it. The following 
commentary is based on our own 
experience as well as that of our 
CPA. 

System Overview 
The packages included are: 
General Ledger, Accounts Receiv- 
able, Accounts Payable, Payroll, 
Fixed Assets and a utility called 
Easytrak. These are available as a 
complete package, or each program 
may be purchased separately. The 
price per package for the Model III is 
$325.00 (Easytrak is $125.00). The 
Model II prices are slightly higher. 
All of the programs operate under 
TRSDOS. The features of each pro- 
gram are extensive. Each program 
is packaged in its own attractive 
binder. The documentation is 
complete and easy to follow. 
Because of the extensive features of 
each program, the documentation 
for each is almost two inches thick 
60 80-U.S. Journal 



in a three-ring binder. 

The company supports their 
software for the first 60 days at no 
additional charge. After the first 60 
days, a maintenance program is 
available for an additional fee of 
$100.00 per package. This includes 
support and technical bulletins, as 
well as a newsletter covering all of 
the packages. 

The entire system is interactive. 
The way they make it so is rather 
interesting. A master diskette is 
provided which is used with all of 
the available programs. The master 
diskette is used to "boot up," after 
which a menu appears and you may 
select the package you wish to run. 

If you choose Accounts Receiv- 
able (for example), the master 
diskette menu will tell you when to 
remove the master diskette and 
insert the Accounts Receivable 
diskette and its data diskette. You 
may choose not to have an interac- 
tive system. In any case, after you 
finish with Accounts Receivable, 
you are instructed to insert the 
master diskette again. It collects the 
data which must be transferred to 
another of the packages. 

If you decide not to be interactive, 
the lineprinter will print the data 
which must be posted manually to 
the appropriate package. The 
decision to go interactive may be 
made even after manual transfer 
has been in operation for a time. 
This assumes, of course, that 
general ledger numbers were 
properly assigned in the first place. 
The master diskette is also used to 
install the various programs and to 
initialize them. 

The system uses a machine lan- 
guage subroutine for screen input in 
all programs. This makes input of 
information fast and easy. Each 
program is completely menu driven, 
and there are several menus for 



each. The menu always shows 
which screen you are using at the 
upper left of the video monitor. The 
@ key is used to step through the 
various menus. 

The many menus used in this 

system seem intimidating at first. 

After doing some work with the 

system, however, this becomes 

routine. 

The General Ledger 

The General Ledger program for 
the Model III with two drives will 
handle 150 to 600 accounts with 
1500 to 3000 journal entries per 
month. The files may be expanded if 
more drives are added to the system. 

It is possible to review file status 
and various processing months 
with this system. This General 
Ledger has a journal entry routine 
1 which gives plenty of flexibility to 
make entries and changes to the 
entries. It allows posting of 
corrections, or adjusting entries not 
posted in the other application 
programs in the system. 

Like other General Ledger 
programs, this one will prepare a 
general ledger, balance sheet and 
income statement. It also has a 
significant number of items which 
make it a valuable tool for any 
business. The income statement can 
be structured to meet your 
individual needs. You may enter 
your own headings and account- 
total descriptions. You can compare 
year-to-date and monthly income 
figures with prior years figures. You 
also have the ability to print an 
income statement which compares 
ammounts for the current month 
and year-to-date with budgeted 
amounts for those periods. These 
features are especially important 
during the current economic 
situation. 



The specialized report request is 
another attractive feature of the 
General Ledger program. It allows 
you to build a special report by 
selecting various accounts. The 
structure of this report is entirely 
user-defined— you could select all of 
the sales accounts for a detailed 
sales analysis report. 

The General Ledger reports are 
designed for an accountant, and will 
provide you with all of the tradition- 
al accounting reports except the 
Changes in Financial Position and 
Retained Earnings Report. These 
two reports are required by 
generally-accepted accounting 
principles, but are not usually 
produced by the majority of smaller 
public companies. 

The program has good audit 
trails. These are important if you 
want to follow an individual entry 
through the different application 
program reports. 

The General Ledger program also 
produces a monthly trial balance, 
quarterly trial balance, compara- 
tive balance sheet, detail general 
ledger, journal activity report, 
master chart of accounts, budget 
worksheet, and financial statement 
footnotes. 

The only significant shortcoming 
observed with the General Ledger is 
that no "other assets" or "other lia- 
bilities" classifications are 
available in the balance sheet. The 
income statement did not appear to 
handle departmental reporting. Per- 
haps this may be done with the 
special report feature, which 
provides essentially the same 
information. 

The General Ledger package is 
impressive. We will take time to 
evaluate other packages in this 
integrated system in later issues. ® 

This package is available from 
Plus Computer Technology, Inc., 
6900 North Austin Ave., Chicago, IL 
60648. Since the writing of this 
evaluation, several revisions have 
been made to the package. Balance 
Sheet categories for "other assets" 
and "other liabilities" have been 
added, 2400 character footnotes are 
available, and an expanded form 
Income Statement which is totally 
user-defined has been added to the 
Financial reports. 




Face it. Until you can talk to and 
understand your Model I, II, III or 
16 Tandy TRS-80* it's nothing 
more than a mass of microcir- 
cuits in a plastic box. 

You need help to harness your 
TRS-80 and make it work for you. 
And that's just what you get from 
Learning TRS-80 BASIC. 

Written by David Lien, author of the popu- 
lar TRS-80 User's Manual for Level I, Learning Level II and The 
BASIC Handbook, Learning TRS-80 BASIC is at once entertaining, 
informative and easy to understand. It's the perfect guide to 
entering the world of microcomputers. 

In Learning TRS-80 BASIC, David Lien gives you simple, step- 
by-step instructions, including programs you can use in business 
or home finance, for entertainment, or to help troubleshoot prob- 
lems. You'll even learn to write your own custom software. Ideal for 
the classroom, too. 

Included are short Question and Answer sections which help 
make sure you understand everything you've learned — it's almost 
like a correspondence course . . . without the correspondence! 

No matter if you own the Model I, II, III or 16, Learning TRS-80 
BASIC is one book no TRS-80 owner should be without. 

Available at better computer and 
book stores, 

or can (800) 854-6505 

In California (714) 588-0996 

Ask about the Basic Handbook, too. To 
order by mail, send check or money 
order for $19.95 (California residents 
add 6%), plus $1.65 shipping and hand- 
ling. Overseas orders send $19.95 plus 
$2.50 surface shipping and handling. 
All books have a 30-day money-back 
guarantee — you can't lose. 




Pioneer Way, Dept.G, El Cajon, CA 92020 

TRS-80 is a registered trademark of the Tandy Corporation. 
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Files and foibles 

Binary tree file handling 



Model I/II/III 



1982, T. R. Dettmann, Associate editor 



We previously introduced the binary tree as a data 
structuring device that allows rapid access to any part 
of a data base. This time, we'll go over a complete 
program listing for a simple binary tree file handling 
program. All the complications are now incorporated 
and we can add, edit and delete. There are some 
changes, so work through the program carefully. 

Binary Trees 

Binary trees come out of the combination of linking 
techniques we've learned and the basic binary divide 
and conquer technique. Since we've covered linking, 
let's look at the binary divide and conquer technique. 

Let's say we have an array to search for something. 
Maybe it's a list of 1000 names. If we start searching in 
the array at the first element and proceed until we find 
it, we would have to look at one-half of the array (on the 
average). 

With the binary technique (properly called the binary 
search), we can cut this down to 10 tries at most! The 
basic procedure involves first sorting the array into 
order. Then, look at the center element. If we have what 
we want, we are done. If not, we look to see if the element 
we want is less than the center one. If it is, we only worry 
about the first part of the array up to the center element 
and repeat the procedure by taking the center of this 
portion of the array and dividing again if we haven't 
found the correct element. Try this a few times to see 
how it works. See if you can take more than 10 tries in a 
list of 1000 items. If you do, you've probably done it 
wrong. If we make a BASIC subroutine to search array 
A, of N items, for item X, we get: 

1000 REM BINARY SEARCH 

1010 LW=1:III=N 

1020 MPT=(HI+LW)/2 

1030 IF A(MPT)=X THEN PRINT'FOUND AT 
";MPT: RETURN 

1040 IF X<A(MPT) THEN HI=MPT-1: GOTO1020 

1050 LW=MPT+1: GOTO1020 

Try this by hand on a small array (say 10 items) to see 
how it works. 

How does this relate to the binary tree? By using 
pointers, we can make the tree the same as the sorted list 
with a midpoint (the root), a less than side (left sub-tree) 
and a greater than side (right sub-tree). By using the 
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same decision process, we can eliminate half the tree 
with every comparison. 

For a tree however, this only works if the whole 
structure is "balanced." If we think of each data item as 
weighing one pound, then for any given element, the left 
sub-tree should weigh as much as the right sub-tree. 

How do you prevent a tree from getting out of 
balance? With a binary tree, it works best if the data 
items are entered in random order. If you enter them in 
sorted order, the tree will be out of balance. 

Try this experiment with the sample program: Make 
up a list of names or numbers to enter. Enter them in 
sorted order and print the full list. Then, draw the 
binary tree with arrows as shown in Figure 1. Next, kill 
the data file and enter the same names in random order. 
Draw the tree again. Do you see the difference? See 
Figure 2. 

The procedures for printing the tree and deleting a 
data item were not talked about before when we 
discussed trees. Look over the listings to see how they 
work. 

The printing routine at line 4200 prints the tree out in 
sorted order. This requires implementing a recursive 
procedure. If you look at Figure 3 carefully, you'll see 
that it could be written as a recursive procedure like this: 

Get the current element. 

If its left pointer isn't zero, Print the left sub-tree. 

Print the current element. 

If its right pointer isn't zero, Print the right sub-tree. 

Understand that when we say print a sub-tree, we start 
the whole procedure over from the beginning with the 
new current element being the root of the sub-tree. 

The program does not use a recursive GOSUBing 
technique. Instead, all of the GOSUBs are replaced by 
equivalent GOTOs. Try rewriting the printing 
procedure using the recursive calling techniques from 
the August installment. 

The delete procedure is fairly intricate since we have 
to move the two sub-trees of the element we're deleting to 
appropriate places. Work through this one by hand until 
you understand it. 

The program was written on a Model II and has been 
run on Model I and III with minor changes. It's also 
been run under CP/M using Microsoft MBASIC. For the 
Color Computer, the most significant problem is the fact 
that there is no LOF function. That's noted in the 



QUALITY SOFTWARE FOR TRS-80 COLOR AND OSI 

ADVENTURES AND QUEST ALSO FOR SINCLAIR AND VIC-20 
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ADVENTURES!!! 
For TRS-80 COLOR and OSI. These Ad- 
ventures are written in BASIC, are full fea- 
tured, fast action, full plotted adventures 
that take 30-50 hours to play. (Adventures 
are inter-active fantasies. It's like reading 
a book except that you are the main char- 
acter as you give the computer commands 
like "Look in the Coffin" and "Light the 
torch,") 

Adventures require 16k on TRS8C, TRS80 
color, and Sinclair. They require 8k on OSI 
and 13k on Vic-20. Derelict takes 12k on 
OSI. $14.95 each. 

ESCAPE FROM MARS 

(by Rodger Olsen) 
This ADVENTURE takes place on the RED 
PLANET. You'll have to explore a Martian 
city and deal with possibly hostile aliens to 
survive this one. A good first adventure. 

PYRAMID (by Rodger Olsen) 
This is our most challenging ADVENTURE. 
It is a treasure hunt in a pyramid full of 
problems. Exciting and tough ! 

TREK ADVENTURE (by Bob Retelle) 
This one takes place aboard a familiar star- 
ship. The crew has le"ft for good reasons — 
but they forgot to take. you, and now you 
are in deep trouble. 

HAUNTED HOUSE (by Bob Anderson) 
It's a real adventure --with ghosts and ghouls 
and goblins and treasures and problems — 
but it is for kids. Designed for the 8 to 12 
year old population and those who haven't 
tried Adventure before and want to start 
out real easy. 

DERELICT 
(by Rodger Olsen & Bob Anderson) 
New winner in the toughest adventure from 
Aardvark sweepstakes. This one takes place 
on an alien ship that has been deserted for a 
thousand years — and is still dangerous! 




VENTURER!— A fast action all machine code 
Arcade game that feels like an adventure.. Go 
berserk as you sneak past the DREADED HALL 
MONSTERS to gather treasure in room after 
room, killing the NASTIES as you go. Great 
color, high res graphics, sound and Joystick game 
for the TRS-80 Color or OSI machines, (black 
and white and silent on OSI.) Tape only. $19.95. 

BASIC THAT ZOOOMMSM 

AT LAST AN AFFORDABLE COMPILER FOR 

OSI AND TRS-80 COLOR MACHINES!!! The 

compiler allows you to write your programs in 
easy BASIC and then automatically generates a 
machine code equivalent that runs 50 to 150 
times faster. 

It does have some limitations. It takes at least 
8K of RAM to run the compiler and it does only 
support a subset of BASIC — about 20 commands 
including FOR, NEXT, END, GOSUB, GOTO, 
IF, THEN, RETURN, END, PRINT, STOP, USR 
(X), PEEK, POKE, *,/,+,-,> , < , =, VARI- 
ABLE NAMES A-Z, SUBSCRIPTED VARI- 
ABLES, and INTEGER NUMBERS FORM 0-64 K. 

TINY COMPILER is written in BASIC. It gener- 
ates native, relocatable 6502 or 6809 code. It 
comes with a 20 page manual and can be modi- 
fied or augmented by the user. $24.95 on tape 
or disk for OSI or TRS-80 Color. 

LABYRINTH - 16K EXTENDED COLOR 
BASIC - With amazing 3D graphics, you fight 
your way through a maze facing real time mon- 
sters. The graphics are real enough to cause claus- 
trophobia. The most realistic game that I have 
ever seen on either system. $14.95. (8K on OSI) 





QUEST - A NEW IDEA IN ADVENTURE 
GAMES! Different from all the others. 
Quest is played on a computer generated 
map of Alesia. Your job is to gather men 
and supplies by combat, bargaining, explor- 
ation of ruins and temples and outright 
banditry. When your force is strong enough, 
you attack the Citadel of Moorlock in a 
life or death battle to the finish. Playable 
in 2 to 5 hours, this one is different every 
time. 16k TRS-80, TRS-80 Color, and Sin- 
clair. 13K VIC-20. $14.95 each. 




NEW!! 

BREAKAWAY - ALL MACHINE CODE - 
Every computer has some form of BREAK- 
AWAY available. Ours is fast, smooth, has 
15 levels of difficulty — and is a bargain!! 
16k TRS-80 Color only $9.95. 

PROGRAMMERS! 

SEE YOUR PROGRAM IN THIS SPACE!! 

Aardvark traditionally pays the highest com- 
missions in the industry and gives programs 
the widest possible coverage. Quality is the 
keyword. If your program is good and you 
want it presented by the best, send it to 
Aardvark. 



Please specify system on a/1 orders 
ALSO FROM AARDVARK - This is only a partial list of what we carry. We have a lot of other games (particularly for the 
TRS-80 Color and OSI ), business programs, blank tapes and disks and hardware. Send $1 .00 for our complete catalog. 



w* 



AARDVARK - 80 

2352 S. Commerce, Walled Lake, Ml 48088 

(313)669-3110 

Phone Orders Accepted 8:00 a.m. to 4:00 p.m. EST. Mon.-Fri. 
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TRS-80 COLOR 



SINCLAIR 

#33 



OSI 



VIC-20 
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SPECIAL 
DQSPLUS 

V3.3 

Disk $49.00 
Save $50.00 



NEW 
Stellar Escort 

by BIG 5 
Tape 12.00 
Disk 15.00 



Electric Pencil 



PMC version of orig. 
for PMC/Mod I 

Tape $24 



Files 



remarks. If you want to try this on a Color Computer, 
you'll have to keep track of the length of the file in the 
file (you could put it in some unused space in record 2). 
I think you'll have fun with this one. By expanding 
the data area, you can make a very versatile data base 
manager for yourself. 



UNBEATABLE PRICES! 



Ed. Note — Model II owners: Following the Binary 
Tree listing is last month's Tower of Hanoi Program 
adapted to Model II graphics. 



DISK 

LIST OUR 
PRICE PRICE 



BUSINESS 

SMALL BUSINESS SYSTEMS GROUP 

Accounts Payable (48) 
Accounts Receivable (48) 
General Ledger (48) 
Inventory Control (48) 
Payroll (48) 

GAMES 

Adventure International 

Armor Patrol . 

Barlog - Maces and Magic #1 

Conquest of Chestwood . 

Earthquake San Francisco 1906 (I) 

Eliminator . . . 

Lunar Lander 

Missle Attack 

Morton's Fork - Maces and Magic #3 (I) 

Planetoids - 

Scot Adam's Adventure #1 #2 #3 : 

Scot Adam's Adventure #10 #11 #12, . 

Scot Adam's Adventure #4 #5 #6 

Scot Adam's Adventure #7 #8 #9 

Sky Warrior . 

Space Intruders 

Star Fighter 

Star Trek 3 5 

Stone of Sysiphus • Maces and Magic #2 (I) 
Big Five 

Attack Force 

Cosmic Fighter 

Defense Command 

Galaxy Invasion 

Meteor Mission 

Robot Attack 

Super Nova 
Cornsoft 

Scarfman 

Space Castle 

INFORMATION PROCESSING 
Adventure International 

Maxi Manager (48) 

OPERATING SYSTEMS 

Micro Systems Software 

Dos Plus V3 3 (I) 

UTILITIES 

Howe 

M0N3 (I) 

M0N4 (I) 

STERM (I) 

System Diagnostic 

WORD PROCESSING 

Michael Shrayer Software 

Electric Pencil (I) 
Aspen Software 

Grammatik (I) . . . 

Proof Edit (I) 

Proofreader (I) 

Soft-Screen (I) (48) 

Soft- Text (I) (48) 

MISCELLANEOUS 

Box of 10 5%-inch Diskettes Microsette 

Box of 10 C- 10 cassettes Microsette 
Box of 1 C-20 cassettes Microsette 
Box of 1 C-60 cassettes Microsette 

Box of 10 C-90 cassettes Microsette 

Adventure 1 thru 12 - Hints Sheets per adventure 

Software runs on PMC/LNW/MOD l/lll 
32K DISK/1 6K CASSETTE UNLESS MARKED 



195 00 
195.00 
195 00 
195 00 
195 00 



24.95 
29 95 
20 95 
20 95 
24 95 
2095 
2095 
29 95 
20 95 
39 95 
39 95 
3995 
3995 
20 95 
20 95 
29 95 
19.95 
2995 

1995 
1995 
1995 
1995 
19.95 
1995 
19 95 

19 95 
19.95 



155 00 
155.00 
155.00 
155.00 
155 00 



19.00 
23.00 
1600 
1600 
1900 
1600 
1600 
23 00 
1600 
3100 
3100 
3100 
31.00 
1600 
1600 
23 00 
15.00 
23 00 

1500 
1500 
15.00 
1500 
15.00 
15.00 
1500 

1500 
1500 



CASS 


LIST 


OUR 


PRICE 


PRICE 


n/a 




n/a 




n/a 




n/a 




n/a 




1995 


15.00 


n/a 




19.95 


15 00 


19.95 


15.00 


19.95 


1500 


14 95 


11.00 


14 95 


1100 


n/a 




1995 


15.00 


n/a 




n/a 




n/a 




n/a 




14 95 


11.00 


1995 


1500 



Figure 1 
Binary Tree formed by entering sorted list. 

LIST: Albert, John, Larry, Mike, Terry, William 



24.95 19 00 

14.95 1100 

n/a 



1595 
1595 
15.95 
15.95 
1595 
15 95 
1595 

15.95 
1595 



1200 
12 00 
12.00 
12.00 
12.00 
1200 
1200 

12.00 
1200 



n/a 


39 95 3100 


49 95 39 00 


n/a 


n/a 


69 95 55 00 


99 95 79 00 


n/a 



100 00 24.00 



59 00 


46.00 


n/a 


30 00 


23 00 


n/a 


54.00 


42.00 


n/a 


6900 


54.00 


n/a 


69 00 


54 00 


n/a 

25.00 

7.50 

900 
11.00 
15.00 

1.00 ea. 
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Figure 2 
Binary Tree formed by entering random list. 

LIST: Mike, Terry, John, Larry, William, Albert 



Terms: FOR FAST DELIVERY, send certified checks, money orders, Visa or Master Card number and 
expiration date Personal checks require 3 weeks. U.S.A sales only. PRICES INCLUDE UPS. continental 
delivery (do not use P.O. Box) CALIFORNIA customers add 6'A% tax. Prices subject to change. 
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The TRS-80 model II was created to help 
you take care of your business. DOSPLUS 
II was created to help your TRS-80 help 
you and your business even more. 

DOSPLUS II replaces your O.E.M. dos 
with an ultra-sophisticated operating 
system that is 5 or more times faster, more 
reliable and is totally compatible with all 
standard business oriented software 
designed for use with the model IE. The 
result is a computer/operating system 
that far exceeds manufacturer's specs — 
with more potential and more capacity to 
be of service to you. 
DOSPLUS II operating systems are 
available for either your floppy or hard 
disk drives. The hard drive operating 
system is compatible with Radio Shack, 

1FT 

A Division of Breeze/QSD, Inc. 

11500 Stemmons Fwy., Dallas, Texas 75229 

(214) 484-2976 Micronet 70130, 203 # 35 



odel n. The Dynamic Dm 

QuCeS, Corvus Micro Mainframe, VR 
Data and other popular hard drive 
sub-systems. 

DOSPLUS n ... All the quality and 

dependability you'd expect from 

DOSPLUS. 

For the dealer nearest you call 

1-800-327-8724 

Dealer inquiries invited. 

$249.95 

For product information (305) 983-3390 

DOSPLUS 



DOSPLUS first in quality! 
First in the industry! 



lb order call toll free 1-800-327-8724 
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SOFTWARE, INC. 

4301-18 Oak Circle, 
Boca Raton, FL 33431 
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A powerful information 
processing system that 
interfaces text processing and 
management. 

Users have praised Midwest Data System's 
Auto-Writer for its unique, versatile approach 
to data base management. 

Now DATA-WRITER does even more: 

• New Data Entry program to create your data base oradd 
records to an existing data base. It has error checking 
features and supports both fixed and variable length fields. 

® New File Editor lets you edit your data base without an 
independent word processor. Or, if you prefer, use your own 
word processor (Electric Pencil, Lazy Writer or Scripsit) to 
create and edit your data base. 

® New Field Manager that lets you add, delete, re-order or 
append fields and merge or split data bases. 

• New interactive, double-precision Math program that 
processes up to 20 equations of up to 255 characters using 
numbers you enter and your data base field labels. It in- 
cludes an in-memory scratch pad to store temporary val- 
ues. Insert them into other equations for a cascade of in- 
creasingly complex mathematical statements. Store your 
series of equations on disk as procedure files to use any 
time you need them. 

• New two-level Sort that enables you to use nested sorts 
for complex ordering of data files. Sort on any field, without 
having previously designated it as a key. 

• New Mailing Label program that allows you to print mul- 
tiple labels from one to four across and to insert a variable 
from the keyboard or a fixed message on every label. 

• Form Letter processor that allows you to insert data from 
your data base into a form letter or contract. 

• Report Generator for columnar tabulations with auto- 
matic headings, pagination, totals and subtotals, and 
sophisticated formatting control. DATA-WRITER'S unique 
flexibility enables you to modify your report format as you 
wish/without the need to scrap it and start fresh. 

• Powerful Select-lf command that lets you define a subset 
of your data base. New instring selection capabilities. With 
Select-lf and Sort, you can create dozens of new data 
bases for specific purposes. 

• Statistical check on your data base to locate data entry 
errors. Stats also reports maximum entered data length for 
each defined field, a tremendous aid when designing a 
report. 

DATA-WRITER is both powerful and easy to use. If has speed 
and versatility not available in any so-called data base 
management system. As one Auto-Writer user said, "Why 
hasn't someone done this before!" 

For the TRS-80 Model l/lll (48K, 2 disk drives, lower case 
required). Available at your favorite software store, or order 
from Software Options, 19 Rector Street, New York, N.Y. 
10006. 212-785-8285. Toll-free order line: 800-221-1624. 
Price: $125 (plus $3 per order shipping and handling). New 
York State residents add sales tax. Visa/ — «—»- 

Mastercard accepted. SOFT WARE 
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Figure 3 
Path to print tree in Sorted Order. 




Listing 1 

95 REM INITIALIZE THE PROGRAM 

100 CLEAR10000:DEFINTA-Z:DIM STK$(30),S 

TK(30) 

105 REM GET THE DATA FILE & DEF 

INE IT 

1 10 OPEN" R" , 1 , "BINARY/OAT" , 60 

120 FIELD* 1, 20 AS KEY$,2 AS LP$,2 AS R 

P$,36 AS DT$ 

130 FORI=lTO30sFIELD#l,(l»l)*2 AS DOM$, 

2 AS STK$(l)sNSXT I 

135 REM DEFINE THE POSSIBLE COM 

MANDS 

140 PC$="ADD EDIT DEI/SPEPRINT HELP 

END " 

145 REM THIS i-'i NOP I, ri PRCfJTS A 

GRAPHICS CHARACTERS AND THEN BACKS .J? 

150 DEF FNFLD$(X)=STRING$(X,144)+STRING 

$(X,28) 

155 REM CHECKS TO SEE EF THE FI 
LE ALREADY EXISTS, IF NOT THEN 

156 REM THE FILE IS INITIALIZED 
FOR USE BY STARTING THE STACK 

157 REM AND INITIALIZING THE LI 
ST HEAD RECORD 

160 IF LOF(1)=0 THEN LSET STK$ ( 1 ) =MKI$ ( 

1 ) : PUT1 , 1 s LSETKEY$=" " : LSETLP$=MKI$ ( ) : P 

UT1,2 

165 REM PRINT LOGIN MESSAGE 

170 CLS:PRINT ,, BINARY TREE DEMONSTRATION 
ii 

180 PRINT"TYPE <HELP> FOR A COMMAND LIS 
T" 
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TRS-80. 



Captain 80 Book of BASIC Adventures. 



Thar's GOLD in them thar plots! 

Eighteen tantalizing, challenging 
fantasy adventures in which YOU 
play the role of adventurer and hero! 
Finding treasures and achieving goals 
while trying to avoid deadfalls and 
other insidious obstacles are just a 
few of the things you'll experience in 
the Captain 80 Book of BASIC 
Adventures, 

This 252-page hook contains 
eighteen exciting adventures edited 
by Bob Liddil of The Programmer's 



Guild. Seven chapters tell you the 
what, when, where, why and how of 
adventures, including how to play, 
write and sell your own programs. 
Although written for the 'IRS 80 
Models I and III, these adventure 
programs will easily adapt to most 
computers using Microsoft w BASIC. 
The highlight of this book is the 
Adventure Generator. This program 
requires disk BASIC and will actually 
write another BASIC program 
around your imaginative instructions' 
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P\ea*r *end __*tipi*h rtf itu* ADVENTURE HOOK for 
nnl\ S19 95 **cH h. pIuh 52 G5 shipping dnd handling t h*>< k 
M O , VISA MC* pncloKpd. C O D orders m c rpf e d 
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SEND TQ 

SO-NW Boohs 

1838 So, Warner St.. Dcpt. C. Tacoma, WA 98409 

DEALER INQUIRIES INVITED 
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200 REM 



COMMAND LOOP - 



205 REM THERE CAN BE 2 WDRDS Otf 

A LINE (FW$ & UTS), IKTCTIALTZR TO 

•206 REM NOTHING AND GET A OOMM& 

ND 

210 FW$= ,M, :LW$= ,,,, :LINE INPUT" >>"; CD$ 

215 REM IP TRBKE IS NO BLANK IN 

THE LTXtf, ASSUME ONLY 1 WORD 

220 L=INSTR(CD$," ")sIF L=0 THEN b>7$=CD 

$:GOTO250 

225 REM OTHERWISE. GET THE WO W 

ORDS 

230 I^^MID$(CJ)$,1,I>1) sLW$=MID$(CD$ f L+ 

1) 

235 REM GET RID OF LEADING BLAN 

KS ON THE LAST WORD 

240 IP M[0$(IAM$ # 1 # 1)=" " THEN LW$=MID$( 

LW$,2):GOTO240 

245 REM IS THE O0MMAND IN PC$? 

FIND IT 

250 CD=INSTR(PC$,FW$):IP CD=0 'MEN PRIN 

T U COMMANO fl»l«DR - TRY HELP":GOTO200 

255 REM GET THE NUMBER OF 'HIE C 

OMMAND 



260 CD=INT(CD/6)+l 

265 REM EXECUTE 'I WE (JMMAlvTD 

270 ON CD GOSUB 100-5, 2W, 3000,4000, 500 

0,300 

280 GOTO200 

300 REM END OF PROGRAM - 

305 REM CLOSE OUT THE PROGRAM M 

ORMALl.Y 

310 CU>SE:CLS:PRINT n GOODBYE" :EtfD 

400 REM INPUT A CHARACTER 

405 REM WAIT HERE UNTIL A SINGL 
E CHARACPER IS TYPED AT THE KEYBOARD 

410 C$=INKEY$ : IFC$=" "THEN410 

420 REHJRN 

500 REM - - - INPUT A LINE 

505 REM PRINT THE INPUT FIELD & 
SEi* THE INPUl 1 BUFFER (INS) TO NOTHING 

5.10 PRINT FNFLD$(ZFb:IN$= H " 

515 Rm GET A CHARACrER, LF IT' 

S <ENTER> THEN WE'RE DONE 

520 GOSUB400:IF ASC(C$)=13 THEN RETURN 
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It's your choice: 

do it the hard way, or 
get the information you need from 



THE B00K 



VOLUME 
l&ll 




VOLUME I 

The most complete book yet 
on the math routines of the 
BASIC ROM, Models I & III. 
Contains a wealth of detail 
about integer, single and dou- 
ble precision formats, advanc- 
ed math, data manipulation, 
and assembly language inter- 
facing, with examples. In- 
cludes commented listing 
(0708H-1607H), plus a highly 
detailed map of the ROM and 
reserved RAM. 



Comprehensive Guide to TRS-80* Assembly Language Routines 

Each Volume Priced At $14.95 Plus $1.50 Shipping/Handling 
VA residents add 4% tax • Foreign: send U.S. funds, add $4 ea. for overseas delivery 

•Trademark of Tandy Corp. 






INSIDERS SOFTWARE CONSULTANTS, INC. 

P.O. Box 7086, Dept. U 3 • Alexandria, VA 22307 

Please send THE BOOK: □ Volume I □ Volume II 

Name , .. 

Add ress 

City 



. State . 



.Zip. 



I 



Enclosed is D check □ M.O. for $ 

Charge to my D VISA □ MasterCard Bank Code. 
Exp. date: Card No 



I Signature 



VOLUME II 

Packed full of useful informa- 
tion on the model I input/ 
output routines, with de- 
tailed listings to illustrate the 
commented source code. 
Learn to control and 
manipulate the keyboard, 
video, printer port, and 
cassette port. Essential for 
assembly language program- 
mers, you can write your own 
routines or use the many pro- 
gramming examples included. 
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525 REM IF IT WAS A BACKSPACE, 
THEN GET RIO OF THE LAST CHARACTER 

526 REM IF THERE IS OW 

530 IF ASC(C$)=8 THEN IP LKN(ltf$)>0 THIS 
N IN$=MID$ ( IN$ , 1 , LTBN( IN$ ) -1 ) : PRINTC$ ; FN 
FLD$(1);:GOTO520 

535 REM HAVE WE ALREADY GOT TOO 
MANY CHARACTERS, IF SO IGNORE THE 

536 REM LAST ONE 
540 IF LEN(IN$)>=ZF THEN 520 

545 REM I? WE PASS ALL THE TEST 
S, ADD THE CHARACTER TO THE BUFFER 

546 REM AND PRINT IT THSN GO GE 
T MORE 

550 IN$=IN$-k:$:PRINTC$;:GOTO520 

600 REM - - - - - < SEAROT FOR 

Kgy «-.-------.-- - - 

605 REM CL IS THE RHIOORD LOCATI 
ON TO LOOK AT, FD IS THE FLAG THAT 

606 REM SAYS WE FOUND IT, AND L 
L IS THE LAST LOCATION WE LOOKED 

610 CL=2;FD=0;LL=CL 

615 REM GET THE CURRENT RECORD 

& GET' THE LEPl 1 & RIGHT POINTERS 

620 GE r ri,a J ;LP=CVl(LP$):RP=CVl(RP$) 



625 REM IF WE'RE LOOKING AT THE 
HEAD POINTER WHICH USES ONLY 

626 REM THE LEFT POINTER, & LP 
IS THEN THE LISP IS EMPfY 

630 IF CL=2 AND LP=0 THEN RETURN 

635 REM IF WE* RE AT THE HEAD PO 
INTER, FIND THE ROOT RECORD AND 

636 REM GO TO PROCESSING 
640 IF CL=2 THEN LL=CT J :CL=LP:(3OTO620 

645 REM CHECK FOR THE KEY, IF I 
T'S FOUND THEN SET THE FOUND 

646 REM FLAG & RETURN 

650 IE INSTR(KEY$,X$)<>0 THEN FEKL:RETiJ 
RN 

655 REM IF WHAT WE' RE LOOKING E 
OR IS LESS THEN THE KEY, SEARCH 

656 REM TH E LEFT SUB-TREE, IF 
THERE IS NONE, THEN WE'RE TONE 

660 IF X$<KEY$ THEN IE LP=0 THEN RETURN 

ELSE LL=CL:CL=LP:GOTO620 
665 REM OTHERWISE WE SEARCH THE 

RIGHr SUB-TREE UNLESS IT'S EMPTY 
670 IF RP=0 THEN REfURN ELSE TJ^CLjCLfR 
P 
680 GOTO620 
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EDflS 3.5 



EDAS is a sophisticated Editor 
and Assembler for TRS-80 I & III 
All text may be input in upper or 
lower case. 

Assemble directly from one or 
more disk files via *GET. 
Assemble to disk or memory 
Binary, octal, decimal, hex, and 
string constants; Multiple con- 
stants may be input on a single 
line. 

CMDFILE utility included. 
Conditional assembly support. 
Cross-Reference utility. 
DOS functions DIR, FREE, KILL, 
and LIST are supported. 
1 4-character labels including 
special chars. "@", "$",".","?". 
Editor includes block move, 
global change, renumber, find. 
EDTASM & M-80 source files 
can be read or written. 
Expression evaluator supports 
+, -, *, /, MOD plus logical AND, 
OR, and XOR. 

Paged & titled listings with page 
numbers and date/time. 
PAGE, TITLE, SUBTTL, SPACE, 
& COM pseudo-ops supported. 
Set memory size, page prompt, 
JCL execution, Abort option. 
EDAS is supported with TRSDOS 
compatible DOSs(LDOS, VTOS). 
Price is $79.00 + $4.00. S&H 




MISOSYS MISOSYS MISOSYS MISOSYS MISOSYS 



to 
& 

o 

to 



LDOS, Version 5.1 is the Ultimate in Operating 
Systems for the TRS-80 Models I and III. 
MISOSYS is your East Coast Headquarters 
for LDOS, the documented system! Version 
5.1 is priced at $129.00 + $5.00 S&H per 
system. Deduct $35 if ordering both. 

uxb 5.1 
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SASOSIIAI SASOSIIAI SASOSIIAI SASOSIIAI SASOSIIAI 



DSMBLR: A 2-pass Z-80 labeling disassembler. 

Output to Video, Printer, or Disk. $20 

DISKMOD: Turn EDTASM 1.2 into disk assembler 

with block move, global change, more. $30 
THE B00Ks: Volume I gives access to all math 

operations in Level II. Volume II explains 

KI, DO, PR & Cassette I/O. Per volume: $15 

All programs Model I/I 1 1 compatible. For S&H 
include $2 + $.50 per unit. {VA res. add 4*} 
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MISOSYS - Dept. 4U 

P.O. Box 4848 

Alexandria, VA 22303-0848 

703-960-2998 MicroNET 70140,310 

Dealers Inquiry Invited 




CON80Z: Translates assembler 
source files from Intel 
8080 to Zilog Z-80. $50 

CONVCPM: Transfers CPM files 
(8"-SDEN, selected 5") 
to LDOS diskettes. $30 

FED: Screen-oriented FILE 
"zapping" utility. $40 

FILTER: Application pack of 
14 filter programs with 
assembler source. $60 

HELP/QRC: Very fast screen 
prompts for LIB, LBASIC 
Utilities. With Quick 
Reference Card. $25 

MONITOR: Take control of I/O 
disk errors to attempt 
recovery w/o ABORT. $25 

LED: The LDOS ASCII/HEX word 
processing type editor. 
Edit JCL KSM FIX + $40 

MSP-01: This support package 
includes PARMDIR: a JCL 
file generator & report 
generator for DIR info; 
MEMDIR: produces a DIR 
of high memory; DOAUTO: 
exec any AUTO command; 
DOCONFIG: re-initialize 
to a CONFIG/SYS. $50 

PDS: Add Partitioned Data 
Set functions. Directly 
exec CMD members. $40 
SOLE: Create Mod-I bootable 
DDEN diskettes. $25 

ZGRAPH: Graphic applications 
created on the screen 
with full editing. $40 
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700 REM - - 



- - - ADD ITEM - 



705 REM GET SOME SPACE & THEN P 

UT THE NEW ITEM THERE 

710 GOSUB900:LSETKEY$=X$:L^ETDT$=Y$:LSE 

TLP$=MKI$(0) :LSETRP$=MKI$(0) 

715 REM STORE IT 

720 PUTIJjC 

725 REM GET THE RECORD THAT THI 
S IS BE IMG A'lTACrlED TO & SET THE 

726 REM THE POINTERS APPROPRIAT 
ELY 

730 GET1,CL 

740 IP CL=2 OR X$<KEY$ THEN LSET LP$=M 

KI$ (LC) : PTJT1 , CL: RETURN 

750 LSET RP$=MKI$(LC)sPTJTl,CL:RH7njRN 

800 REM - - - ' REPLACE ITE 

M - - - 

810 i^ETKEY$=X$sLSETDT$=Y$:PTJri,CL:RETU 
RN 

900 REM - - - - - GET SPACE F 

OR AN ITEM ------ 

905 REM FIRST CHECK THE STACK, 
IF IT'S EMPTY THEN GET SPACE AT THE 

906 REM THE END OF THE PILE . . . 
NOTE THE COLOR COMPUTER DOESN'T 

907 REM HAVE LOF, SO YOU'LL E1AV 
E TO KEEP THE LENGTH OF THE FILE IN 



908 REM THE FILE ITSELF 

910 GET1,1:IF CVI ( STK$ ( 1 ) ) <=1 THEN LC=L 

OF(l)+ls RETURN 

915 REM IF THE STACK ISN'T EMPT 
Y, THEN GEP THE TOP RECORD NUMBER 

916 REM OFF THE STACK 

920 SP=CVI(STK$ (1) ) :LOCVl(STK$ (SP) ) : LS 

ETSTK$ ( 1 ) =MKI$ ( SP-1 ) 

930 RETURN 

1000 REM - - - - ADD ITEMS - 

1005 REM THIS IS WHERE WE ENTER 
ITEMS FROM THE KEYBOARD 

1006 REM GET THE DA PA 

1010 ZF=36:PRINT"DATA: ",• sGOSUB500;PRIN 

T 

1015 REM X$ IS THE KEY, Y$ IS TH 

E DATA 

1020 PRINT" ADDING DATA" : X$=LW$ : Y$=IN$ 

1025 REM SEARCH TO SEE IF THE K.E 
Y IS ALREADY THERE 

1026 REM IF IT IS, REPLACE THE R 
ECORD, OTHERWISE ADD IT 

1030 GOSUB600:IF FD=1 THEN GOSUB800 ELS 

E GOSUB700 

1040 RETURN 

20(10 REM EDIT ITEMS - 



CONVERT YOUR SERIAL PRINTER TO PARALLEL 



The UPI serial printer interfaces allow an ASCII serial printer 
to be connected to the parallel printer port on TRS-80 
Models I, II and III. 

Software compatibility problems are totally eliminated because 
the TRS-80 "Thinks't hat a parallel printer has been attached. 
No machine language driver needs to be loaded into high 
memory. VISACALC, SCRIPSIT, BASIC, FORTRAN, etc. all 
work as if a parallel printer was in use. 

The UPI interfaces are completely self contained and ready 
to use. A 34 conductor cable and connector plugs onto the 
parallel printer port of the Model I expansion interface or 
onto the parallel printer port on the back of Models II and 
III. A DB25 socket mates with the cable from your serial 
printer. The UPI interfaces convert the parallel output of the 
TRS-80 printer port into serial data in both the RS232-C and 
20 MA. loop formats. 



bd 



BINARY DEVICES 

Formerly SPEEDWAY ELECTRONICS 
11560 TIMBERLAKE LANE 
NOBLESVILLE, IN 46060 
(317) 842-5020 
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TRS 80 is a trademark of Tandy 



VISA MasterCard 




Switch selectable options include: 
® Linefeed after Carriage Return 
e Handshake polarity (RS232-C 
® Nulls after Carriage Return 
« 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per word 

• Parity or no parity 
e ODD or EVEN parity 

NEW VARIABLE BAUD RATE MODELS 

Switch selectable from 110-4800 BAUD 
UPI-3VBfor models I or II 
UPI-2VBfor model II 



CLOSEOUT ON SINGLE BAUD RATE 
MODELS 

OurUPI-2and UPI-3will drive virtually any ASCII serial printer. 
UPI-3 for model I or III Closeout $109.95 

UPI-2 for model II Closeout $109.95 

Specify BAUD rate 50-4800. Quantities limited. 



Shipping and handling on all orders. 

90 day warranty on all interfaces 

Ten day return privelege on UPI-3VB and UPI-2VB 

Longer cables available 
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2005 REM IF THERE WAS NO KEY ONT 

THK COMMAND LINE, THEN ERROR 

2010 IF LW$= ,f " THEN PRINT"CC)MMAND ERROR 

- TRY HELP" RETURN 
2015 REM SEARCH FOR THE KEY, IF 

NOr POUND THEN CAN'T EDIT 
2020 X$=LW$:GOSUB600:IF FD=0 THEN PRINT 
"NOT IN LIST": RETURN 
2025 REM PRINT THE DATA 

2030 PRINT"DATA: 

n ;DT$ 
2040 PR1CNT" ENTER CHANGES (EWER IF NO C 
HANGE): "; 

2045 REM GET CHANGES IE ANY, IF 
JUST HIT ENTER THEN DON'T CHANGE 

2046 REM ANYTHING 

2050 ZF=36;GOSUB500; PRINT; IF IN$= ,,n THE 

N RETURN 

2055 REM IF MORE THAN <ENTER> WA. 

S TYPED, THEN REPLACE THE RECORD 

2060 Y$=IN$sX$=KEY$:GOSUB800 

2070 RETURN 

3000 REM -.-«---- DELETE .TOMS 



3005 REM IF NO KEY, 'CHEN INCORRE 

CT COMMAND 

3010 IE lj'7$="" THEN PRCNfCOM^A^D tfi-VJOR 
- TRY HELP": RETURN 



3015 REM SEARCH FOR IT, IE CT IS 

N'T THERE, WE CAN'T DELETE IT 

3020 K$=LW$:GOSUB600:IF FD=0 THEN PRIOT 

"NOT IN LIST": RETURN 

3025 REM PRINT IT JUST TO MAKE S 

URE WE REALLY WANT TO DELETE IT 

3030 PRINT"KEY:";TAB(40)KEY$ 

3040 PRINT'DAPA: ";T/\B(40)DT$ 

3050 PRINT"DELE.rE (Y/N)? "; :ZF=1:G0SUB5 

00:PRINT:IF IN$="N" THEN RETURN 

3055 REM ONLY IF "Y" IS ANSWERED 

WILL THE RECORD BE DELETED 
3060 IF IN$<>"Y" THEN 3050 

3065 REM GET THE FATHER OF THE I 
TEM WE WANT TO DELETE, 

3066 REM SEE IF WE'RE DELETING T 
HE LEFT OR RCGHJ? CHILD 

3067 REM THE SET THE CORRECT POI 
NTER TO POINT TO THE LAPP SiJJ*-TR!23 

3068 REM OF THE DEbEPMl) IT?/4 
3070 GET1,LL:IF CL=CVl(LP$) THEN LSETLP 
$=MKI$(LP) EfjSE l J SETRP$=Mt<I$(LP) 

3075 REM IF THERE'S NO RIGHT POI 
NTER, THEN SIMPLY SAVE THE DOTTED 

3076 REM LOCATION ON THE STACK 
3080 PUT1,LL:XL=CL:CL=LP:IF RP=0 THEN 3 
200 



DISCOUNT COMPUTE! 

100% RS COMPONENTS, NO FOREIGN DRIVES OR MEMORY 

FULL WARRANTY 



16K Color Computer 449.00 

32K Color Computer 549.00 

16K Model III 815.00 

48K Model III, 1 Dr 1549.00 

48K Model III, 2 Dr. RS232 1889.00 

64K Model II, 1 Dr 2920.00 

128K Model 16, 1 Dr 3998.00 

128K Model 16, 2 Dr 4598.00 



Line Printer V 1499.00 

Line Printer VI.... 975.00 

Line Printer VII 299.00 

Line Printer VIII 599.00 

Daisy Wheel II 1599.00 

1 Dr. Expansion Mod II 919.00 

8.4 MEG Hard Disk Mod 11/16 3685.00 

All RS Software 20% OFF 



ALL OTHER ITEMS CARRY SIMILAR DISCOUNT. CALL FOR PRICES. 

CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS. 

SHIPPED FREIGHT COLLECT 

(817) 825-4027 

NOCONA ELECTRONICS • Box 593 • Nocona, TX 76255 
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3085 REM IF TUG DEI >7 ?m C'l?RM HAD 

A RIGHT SUBhiMM, TlffiNf WE'VS GJf i\) 
3036 REM MOVe IT UP TO THE CORRE 

Cr PLACE WKr.CH WIUj BE DOW THE RIGHT 

3087 REM Sill*- I'RSE OF THE LEPf-SU 
B-TRES OF Ttffi DELEPEO ITEM 

3088 REM TRY THIS OME BY KANTO 'TO 
SEE HOW IT WORKS 

3090 GEYl.CLtW O/l(RP$)=0 THEN LSKPRPS 
=MKI$(RP) :PUT1, GL;a)T33200 

3095 REM MOVE TOWN THE RIGHT SUB 

-TREE 

3100 CL=CVl(RP$):GOro3090 
3200 REM PUSH OPEN! SPACE ONT STACK 
3210 GETl,lsSP=CVl(STK$(l)) 
3215 REM ARBITRARILY IGNORE MORE 

THAW 30 DELETED ITEMS 

3220 IF SP>=30 THEN! PRINT ["'STACK FULL":R 

ETURN 

3225 REM STACK THE DELETED REODR 

D MOMBER 

32 30 S'?-=S Pf 1 : LSETS' PK$ ( SP ) =MKI$ ( XL) : LSET 

STK$(1)=MKI$(SP) 

3240 POT1, Is RETURN 



4000 REM 



----.- PRINT LIST - 
LOOK FOR LEGAL COMMANDS 



4005 REM 

FULL OR ORDERED 
4010 IF LW$="FULL" THEM 4100 
4020 IF LW$= "ORDERED" THEN 4200 
4030 PRTNT"COMMAOT) KR3DR - TRY HELP": RE 
TURN 
4100 REM - - ~ - ~ <- PRINT ITEM 

4105 REM FULL OPTION TO PRINT, C 
HECK TO MAKE SURE THERE IS 

4106 REM OTHERWISE PRINT THE HEA 
DING 

4110 IF LOF(l)<=2 THEN RETURN ELSE PRIN 

T" KEY", "LEFT PTR", "RIG^r PTR'V'DAT 

A" 

4115 REM LOOP OVER ALL AVAILABLE 

RECORDS 
4120 «DR 1=3 TO LOF(l) 

4125 REM GET EACH RECORD AND PRI 
NT IT'S NUMBER 

4130 GETl,I:PRINTUSING"###s ";I; 
4135 REM PRIisFP At J, THE DATA, KEY 
, LEPr POINTER, RIGHT POINTER, AND 



22511 Katy Freeway 
Katy (Houston), Texas 77450 



In Texas, Orders, 

Questions & Answers 

1-713-392-0747 

SAVE BSG DOLLARS Ol 

TRS-80® by Radio Shack. Brand new in cartons delivered. Save state sales tax. Texas residents, 
add only 5% sales tax. Open Mon-Sat. 9-6. We pay freight and insurance. Come by and see us. 
Call us for a reference in or near your city. Ref: Farmers State Bank, Brookshire, Texas. 



WE OFFER ON 
REQUEST 

Federal Express (overnight delivery) 

Houston Intercontinental Airport 
Delivery, Same Day Service 

U.P.S. BLUE-Every Day 

References from people who have 
bought computers from us probably 
in your city. We have thousands 
of satisfied customers. WE WILL 
NOT BE UNDERSOLD! 

ED McMANUS 













In stock TRS-80 Mode! 
II and III 

No Tax on Out of Texas Shipments! 

#41 

Save 
10% 15% 

OR MORE 



WE 



NO extra charge for Master Card or Visa 

We use Direct Freight lines. No long waits 

We always pay the freight and insurance 

Toll free order number 

Our capability to go to the giant TRS-80® 
Computer warehouse 5 hours away, in 
Ft. Worth, Texas, to keep you in stock. 

® TRS-W is a Registered Trademark of Tandy Corp. 



Reserve your Model 1 6 Today! 

TELEX; 77-4132 (FLEXS H0U) 



JOE McMANUS 
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4136 REM DATA, ONLY PRINT THE FI 

RST PART OF KEY AND DATA 

414f-3 PRINT MID$ (KEY$ , 1 , 10 ) , CVI (LP$ ) , 

CVI(RP$),MID$(DT$,1,10) 

4150 NEXT I 

416i1 RETURN 

4200 REM - - - ~ ~ - - - PRINT ITEMS IN 

KEY ORDER — 

4205 REM THIS IS A SORTED ORDER 
PRINT WKCCHE QDMES HMOI RECURSIVELY 

42:% REM FOLLOWING THE TREE IX)WN 

AND THEN BACK UP AS DISCUSSED 
4207 REM IN THE ARTICLE ON RECUR 
SWE PR'XJEIXJRES, THIS ONE HAS BEEN 
4?;33 REM ADAPTED TO CONVERT THE< 
RECURSIVE CALLS INTO SIMPLE GOTO'S 

4209 REM MAKING IT TECHNICALLY N 
OT RECURSIVE ANYMORE 

4210 SP=0:C1>2:PRINT" KEY", /'DATA" 
4215 REM GET THE CURRENT RECORD 
AND IT'S POINTERS 

4220 GETl,Ci: J sLP=CVl(LP$);RP=CVl(RP$) 
4225 REM IE THE TREE IS EMPTY, W 
E'RE DONE 



4230 IF CL=2 AND LP=0 THEN RETURN 

4235 REM IF WE'RE AT THE HEAD RE 

CORD, FIND THE ROOT 

4240 IF CL=2 THEN CL=LP:GOTO4220 

4245 REM IF 'THE LEFT POINTER ISN 
'T ZERO, STACK THE CURRENT RECORD 

4246 REM AND GO BACK FOR THE LEF 
T SUB-TREE 

4250 IF LP<>0 THEN SP=SP+1:STK(SP)=CL:C 
L=LP:GOTO4220 

4255 REM WFIEN WE FINALLY GET A Z 
ERO LEFT POINTER, PRINT THE DATA 

4256 REM RECORD WE' RE CURRENTLY 
LOOKING AT 

4260 PRINTUSING"###: ";CL; 
4270 PRINTKEY$,DT$ 

4275 REM IE THE RIGHT POINTER IS 
N'T ZERO, THEN STACK THE CURRENT 

4276 REM RECORD NUMBER (NEGATIVE 
SO WE KNOW WE'RE DOING IT FOR A 

4277 REM RIGHT SUB-TREE TRAVERSA 
L) AND THEN (30 BACK AND GET THE 

4273 REM RIGHT SUB-TREE 

4280 IF RPO0 THEN SP=SP+1:STK(SP)=-0 J : 

CL=RP;GOTO4220 




THS-80 HOPEL 11 TRS-®© MODEL 1 6 

64-K Sa^sjQl 128-K$iH|«|| 
26-4002 1# Mm ® *Sf 26-6002 "Tr ^ar mm ^r 

8.4 MEGABYTE HARD DISKS (PRIMARY UNIT) $4000. 



WE ALSO CARRY EPSON AND OKIDATA 
PRINTERS, XEROX 820 AND 

ALTOS COMPUTERS. 
NO OUT-OF-STATE TAXES. 

Sold with the manufacturer's limited warranty. Copies 

of such warranty may be obtained for review from 

Perry Oil and Gas Co. 

#42 




THS-80 MODEL §11 

48-K $9|| ^Ql6-K $0 4 
26-1 066 All fi ff9 26-1 062 O I %7 

WITH 2 DISK RS-232 TAPE VERSION 

(ALL RADIO SHACK EQUIPMENT) 



^TRS-80 COLOR 

455 



16-K $ 
26-3002 



4-K $ 
26-3001 

32-K $ 
26-3003 



309 



COLOR DISK DRIVES 

o $ 475 12-3 s 31 5 



— T.M.TANDY CORP. 



| DEALERS' INQUIRIES INVITED. 

WE ACCEPT 

CERTIFIED CHECKS, 

CASHIERS CHECKS 

AND MONEY ORDERS. 



PERRY OIL & GAS INCORPORATED 

Dept. No. C-3 137 NORTH MAIN ST., PERRY. MICHIGAN 48872 

PHONE (517) 625-4161, MICH. 

FOR OUR PRICES, PLEASE CALL TOLL FREE 1 -800-248-3823 
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4285 REM WHEN 'JHK KKim? SUB-TREE 
IS DONE, THEN WE'RE IX3KIE IF THERE IS 

4286 REM NOTHING LEFT ON THE STA 
CK 

4290 IF SP=0 THEN RETURN 

4295 REM OTHERWISE, GEL 1 THE TOP 
FROM THE STACK, IF IT'S FROM A LEFT 

4296 REM TRAVERSA!.. THEM WE GET T 
HE NEW CURRENT RECORD AND PRINT IT 

4300 SP=SP-1;CI>A6S(STK( SP+1)) 

4310 IF STK(SP+1)>0 THEN GEri,CL:LF=CVI 

(LP$ ) : RP=CVI (RP$ ) SGOTO4260 

4315 REM OTHERWISE UMSTACK ANOTH 

ER ITEM 

4320 GOTO4290 

5000 REM - - ~ ----- - HELP 

5010 PRINT sPRINTTAB( 10) "COMMANDS" 

5020 PRINTTAI3(15)"ADD <KEY>"?TAB(40) "AD 

D AN ITEM" 

5030 PRItTTTAB(15)"EDIT <KEY>"?TAB(40)"E 

DIT AM ITEM" 

5040 PRINTTAB(15)"DELETE <KEY>"?TAB(40) 

"DELETE AN ITEM" 



5050 PRINTTAB( 15) "PRINT FULL"?TAB(40) "P 

RINT FlJLTi FILE INFORfVIATION" 

5055 PRINTTA8( 15) "PRINT ORDERED" ?TAB( 40 

) "PRINT KEY ORDERED LIST" 

5060 PRINT:CAB( 15) "HELP" ;TAB( 40) "PRINT T 

HIS LIST" 

5070 PRINTrAB(15)"END"?TAB(40)"END OF P 

ROGRAM" 

5080 PRINT: PRINT 

5090 RETURN 

Listing 2 



10 REM ******************************** 

20 REM 

TOWERS OF HANOI 

DEMO OF RECURSION IN BASIC 

TERRY R. DETTMANN 



VERSION 1.0 05/01/82 



30 REM 

40 REM 

50 REM 

60 REM 

70 REM 

80 REM 

90 REM ******************************** 

100 CLEAR1000SDEFINTA-Z 

110 MX=25:DIM STK(25,4) ,TWR(10, 3) ,TP(3) 

,LB$(4) 

120 SP=0:BL$=STRING$(20," ") 



asSB5BgBHB3ia3E 



OD I/III SPEED MOD 



The only resource you can't replace is TIME. PLUG IN A SPRINTER (by Holmes 
Engineering) and 

TRIPLE THE SPEED of your TRS-80 MODEL 1 OR MODEL 3. 

YES! A NEW Z-80B MICROPROCESSOR IS INCLUDED! 

YES! Special circuitry handles your slower memory chips. 

YES! Automatic switch down to "normal" for disk I/O. 

YES! IT IS ABSOLUTELY FANTASTIC and only 99.50 COMPLETE!! 

Only the cream of the crop - • for you, from HACKS. 



SCRIPLUS v3.0 (by ROSTEK) is the software "patch" for SCRIPSIT (c) that lets you output 
control codes to CHANGE TYPE STYLES, UNDERLINE, etc. from within your text files. Written 
especially for the MX-80 but works fine with most any printer that accepts control codes. Makes your 
printer do all the tricks it was designed for. +DIR, KILL, MERGE, and MORE, WHILE IN 
SCRIPSIT (c). 
How many times have you wished? Here 'tiz ON DISK 39.95 



Need a SUPERFINE lowercase CHARACTER GENERATOR for your MOD 1? KSG 
Technology builds 'em, and we've got one just for you. Beautiful lowercase -FULL DECENDERS - 
All of the graphics.of course. INCLUDES the SPECIALGRAPHICSforCHR$(0)thruCHRS(31) 
omitted in the later Radio Shack lower case chips. Ask for the CGA-2. You'll love it! Only 29.95 



Did you ever bomb a disk? SUPER UTILITY (by Kim Watt) WILL AUTOMATICALLY 
RECOVER BOOT SECTIONS, GAT TABLES, READ AND COPY PROTECTED MEDIA, 
TRANSFER FROM ONE DOS TO ANOTHER, SINGLE ORDOUBLE DENSITY, and on, and 

orli atl d on You just wouldn't believe . . . Includes a hundred and some odd vital functions. The 

BEST (no doubt!) and very, very highly recommended for ANYONE that uses a TRS-80 MOD 1 or 
MOD 3 with any kind of DISK and any kind of DOS. You just got to use it to realize what you've got 
here! The name "SUPER UTILITY" is a gross under-statement. One use can easily pay for the 
program. 48K required. Specify 35tk, 40tk or 80 tk media for your Mod 1 or Mod 3. Absolutely 
professional! You need this! Don't get caught without it. 74.95 
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ALL 



hardware Model I Lowercase 



i Trademark of Tandy Corp 



DUALCASE 

UPPER/lowercase, full time 
from power-up; NO software; 
Standard typewriter keyboard 
operation (shift to UPPER- 
CASE); Control characters can 
be displayed; 128 Total char- 
acter set plus full graphics. 

ELECTRONIC SHIFT-LOCK 

No extra keys or switches. Sim- 
ply tap either shift key, UPPER- 
CASE lock, normal shift un- 
locks. 

DE-B-B-BOUNCE At no extra cost 
(At your option) 

BLOCK CURSOR If you like (No chg) 

SWITCHABLE from key board 



"THE PATCH" is covered with a 
one year limited warranty on materi- 
als and workmanship. (Does void 
Radio Shack's 90 day warranty.) 



"THE PATCH" is a trademark of 
CECDAT.INC. 



"THE PATCH" is compatible with 
any word processor, any DOS and also 
other languages which use ROM sub- 
routines. Assembled and tested. .$ 1 27 00 

"THE PATCH" unit plugs into the 
ROM sockets (does not replace existing 
ROM). Lowercase does require installa- 
tion of the extra video ROM (supplied 
with "THE PATCH"). 

Detailed instructions guide even the 
most inexperienced owner to complete 
installation in about 30 minutes. 
WHEN ORDERING SPECIFY: 
"Mem Size" D "Memory Size" Q 
And your choice of any/all options. 

To order, send payment plus $2 00 
shipping and handling. Texas residents 
add 5% sales tax/ 



D 



WHEN ORDERING SPECIFY: 

"Mem Size" D "Memory Size" 
Any your choice of any/all options 
To order, send payment plus $2 00 shipping 
and handling. Texas residents add 5% sales 



HACKS 



P.O. BOX 12963 
Houston, Texas 77017 



#43 
National Distributors 



713-455-3276 



Files 



130 P0RI=lTO4:£^EADLB$(l):.vfEX r ri 

140 DATA N,PROM,TO,TRMP \ 

150 DEF raDSK$(N)=*5TRING$(10-N # 32)+f?rRI 

NG$(N,153)+QiR$(155)+STRING$(N,153) 

160 DEF FNNDSK$(rT)=STRING$(10,32)-KHR$( 

155)+STRING$(10,32) 

200 REM - - ■ - - - COMMANDS 



210 a J S:PRINT"TOWERS OF HANOI": INPUT" HO 

W MANY DISKS (1-10) ";N: IF N>10 OR iST<l T 

FffiN 210 

220 NUM=0:11K=2"N-1:FRM=1:TT=2;TMP=3:PRI 

NTGHR$(2) 

230 GQSUB9tf0:GO.SUOl200 

240 GOSUB1000 

250 PRINTS (23,0),;: INPUT" AGAIN (Y/N)";Y 

N$sIF YN$="Y" THEN 200 ELSE IF YN$<>"N" 

THEN 250 
260 END 

,: )00 REM ----- • INITIALIZE N 

TOWERS ■ - ■ 

910 FORI=1TON:TWR(I,1)=N-I+1:TWR(I,2)=0 

: f rWR(l,3)=0:NEXTI 

915 IF N<10 THEN FORI=N+1TO10:FORJ=1TO3 

:TWR(l,J)=0:NEX T rJ:NEXTI 



920 TP(1)=N:TP(2)=0:TP(3)=0 
930 RETURN 

1000 REM «„...-- MOVE N TOWER 

s . .- 

1010 IF N>1 THEN (WSUB2000:N=N-1:FRM=FR 

M : T-TT : TT=TMP : TMP=T : ODB JB1000 

L020 GOS1JB1100:GOSUB1305 

L030 IF N>1 TUHN GOSUB2000:N^-1:T=FRM: 

FRM=*TMP : TT^TT : TMP=T : GOSUB1000 

1040 GOSUB2100 

1050 RETURN 

1100 REM -. - « - - MOVE ONE l)£S 

K - - - - - .,.,...--- 

1110 T=TWR(TP( FRM) , FRM) : TWR(TP( FRM) , FRM 

)=0:TP(FRM)=TP(FRM)~1 

1120 TP(Tr)=TP(TT,)+l:TWR(TP(TT) / TT)=T 

1125 NUM=NUM+1 

1130 RETURN 

1200 REM •• - - PRINT TOWERS - 

1210 FORJ=lT03:a J =(J-l)*25 

1220 PRINTS ( 10, CL),USING"TOWER ##";J 

1230 FOR I = 10 TO 1 STEP -1:RW=10+1 
0-1+1 




P DDT WRITER 



Another GEAP expansion module for Epson Graftrax Owners 

FEATURES: GEAP CHARACTER FONTS • Create High Res Drawings without TRS-80 modifica- 
tions or programming knowledge • Create or modify fonts • Print time options such as 
magnify, dot, spacing control, reverse and more • Library function allows saving to disk printing 

or re-editing. SAMPLES - High Res 

and Modified Characters 



ACTUAL CHARACTER FONTS / SIZE 



HBGHffE 



mm 

HSCDEF 



eppn 
!Li& %a£ mm 

fliCDE 

abed 



mm rbcd 

RBCD 

flBCD abcd 




m 






GEAP is modular in form. We have a package for just about every system. 
If you don't see components for your system, call us; we probably didn't have 
room to list it. 

16 - 48K SYSTEMS - CASSETTE - DISK - OR STRINGY 

GEAP 1.3 $25.99 - The famous GEAP editor; draw, rotate, magnify, 
"paintbrush" merge, write basic program - just a few of the options. 

Here is what the reviewers have said about GEAP 1.3: 

"/ have seen other programs that claim to do what GEAP does, but 
no other has lived up to my expectations"— Richard McGarvey, 80 Micro- 
computing, March 1982, p. 57. 

•'Of all the TRS-80 programs that have passed my way, none has ex- 
ceeded my expectations as this one has, GRAPHICS EDITOR AND PRO- 
GRAMMER by Bill Mason"— Margaret M. Grothman (Softside Magazine, 



Jan. 1982) 



MOD I/III 



#44 



EXPANSION MODULES 1-5 $16.99. More magnify, rotation and other commands, 
"INSTANT BLOCK" letters to speed up your drawing. Magnification allows 
manipulation of the Instant Letters, giving you many variations. 

48K SYSTEMS 

GEAP 2.1 $45.95. A special enlarged GEAP 1.3 Editor plus over 10 GEAP 
Expansion Modules. Instant Letters, EPSON/OKIDATA Block "block graphics" 
support. Quickcursor module with 2 speed controllable cursors, rectangle, 
line and circle commands. 2.1 also includes the NEWSCRIPT interactive 
module. (For other printer support - call) 

GEAP DOT WRITER - You get all of the 2.1 Package plus all of the Dot Writer's 
high resolution capabilities. With this package you enter a new world. (Epson 
Printer Support only at this time). $75.95 



J F CONSULTING / 74355 BUTTONWOOD / PALM DESERT, CA 92260 / (714) 340-5471 



MC/VISA 
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A Pot Of Gold 
For YOUR Color Computer 

'7 buy practically every computer magazine there is, but the RAINBOW is the 
only one i read cover-to-cover as soon as it comes in the mail '-A subscriber 

Th» RAINBOW gels thai son of response lor more reasons lhan one but the primary one is simply il 
is the premier magazine for TRS-80" Color Computer users And because it devotes every page of each 
monthly issue exclusively to the Color Computer il is the single best source of information for everything 
you want to know 

Tired of trying to convert other computer programs to your Color Computer? No worries Each program 
in the RAINBOW is written exclusively for your computer — and many lake advantage of all the excellent 
graphics commands unavailable on other machines! The nation s leading software authors have contribu 
tions every month. 

Th» RAINBOW'S Hints- Tips and Pipeline feature give you the best up-to the-minule information 
available on the Color Computer II you are looking for ways to do screen prints, alphabetize disk 
directories, save machine language programs or print Videotex input on your printer the RAINBOW has 
programs for you! And if you want to know when some promised software will really be available for 
purchase, you'll gel that answered, too 

Our tutorials have been praised for the clear, concise way they explain — in detail — various functions 
of the Color Computer And the RAINBOWS reviews are an excellent and honest buyer s guide to software 
and other purchases 

Whether your Color Computer is 4K, 16K or 32K Whether you have Color Basic or Extended Whether 
you re into assembly language (or want to get into it) or not Printers Disks Rom packs The RAINBOW 
surveys the whole world ol the Color Computer each month and provides what one reader called A pot of 
gold full of fabulous information 

Because it is journalistically-oriented the RAINBOW gives fast turnaround to meet its monthly 
deadline So. you can expect fresh news when it is news and the latest information available 

If all this sounds like a lot for $16 per year ilmaybe But .veil make one more promise II after you see 
your first issue you don'l agree that the RAINBOW is the premier monthly magazine lor Color Computer 
users we'll happily cheerfully and immediately relund your money 




the RAINBOW 

!,803 TimlH'r Rirtqv Drive P O Box 209 

Pi iwiiiwi KV 40059 

Gi'mlemmi YES' S,t|n mi; up mjht iiwnv lot n mm 



(6021 22B 4492 
on to the B AIN BOW My pnymimt is 



Payment Enclosed 
Charge my VISA » 



' Charge my MastorCard ti ft ^g 

Card Exp Date Interbank r* 



[I— iSE] 
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1240 IF TWR(l,J)=0 THEN PRINT@(RW 

,CL),FN NDSK$(0); RUSH! PRINT@(FW,CL),FN 

DSK$(TWR(I,J)); 

1250 NEXTI 

1260 NEXTJ 

1270 RETURN 

1305 REM BLANK FROM, ADD TO - - 



1310 
1320 
1330 
1340 

)); 

1350 
2000 
S ON 
2010 

FiJiji 



RW=10+-10-TP(FRM) :CL=(FRM-1)*25 
PRINTS (RW f CL) ,FNNDSK$ (0) ; 
Rv*=10+10-TP(TT)+1 :CL=(TT-1 ) *25 
PRINT@(RW,CL) , FNDSK$ (TWR(TP(TT) ,TT 



PUSH PARAMETER 



RETURN 

REM - 

THE STACK - - - . - - ■ 

IF SP>=MX THEN PRINT" ERROR - STACK 
/'sEND 



2020 SP=SP+l:STK(SP # l)=N:STK(SP f 2)=FRM: 

STK(SP f 3)=TT:STK(SP f 4)=*rMP 

2030 RETURN 

2100 REM - - • - - POP PARAMETERS 

OFF THE STACK - - - - 

2110 IF SP<=0 THEN RETURN 

2120 N==STK(SP,l)sFRM=STK(SP,2):TT==STK(S 

P,3):TMP=STK(SP,4) 

2130 SP=SP-1: RETURN B 



MARAT H O N 



SOFTWARE 



PIK'EM 



1982 




64% 

ACCURATE 

AGAINST 

POINTSPREAD 

FOR 1981 

SEASON 

(Games 2-16) 



A COMPLETE FOOTBALL PREDICTION PROGRAM FOR THE 
1982 NFL PROFESSIONAL REGULAR SEASON STARTING SEPT. 12, 1982* 

• ••••• 

ONLY 20 MIN. DATA INPUT PER WEEK WILL GIVE YOU THE EDGE ON EVERYONE** 




CAN BE UPDATED FOR 1983 

PHONE 

LINES 

OPEN 

24-HOURS - 7-DAYS 




$24 



95 



INCLUDES: 



NAMF 


AnnRFSS 


niTY ST 7IP 

PIKEM 24 95 PAYMENT ENCLO □ 
VISA □ MASTERCHARGE □ AC# 






























MY CARD EXPIRES: □□ □□ 



DATA DISKETTE 
COMPLETE INSTRUCTIONS 

SPECIFY: 

TRS80 MODEL l/lll 
AT LEAST 32K 



-FEATURES- 
DISPLAYS PREDICTED SCORES 210 GAMES 
DISPLAYS ACCUMULATED STATS EACH TEAM 
DISPLAYS AVERAGE STATS EACH TEAM 
GIVES PRINTOUT; PREDICTIONS— STATS— AVE 
AUTOMATICALLY STORES DATA - NO 'SAVE' 



DATA NEEDED TO RUN PROGRAM 
AVAILABLE IN LOCAL NEWSPAPERS. 



IF PROGRAM IS BOUGHT AFTER SEA- 
SON STARTS - ALL PREVIOUS STA- 
TISTICS WILL BE INCLUDED - NO 
CHARGE. 



DEALER INQUIRIES INVITED 
#46 

STAT SERVICE AVAILABLE 
FOR ALL 16 WEEKS OF SEASON 



FOR MORE INFORMATION CONTACT: 

MARATHON SOFTWARE DEPT. U 

P. 0. BOX 1493 

JACKSONVILLE, TEXAS 75766 
(214) 586-8212 
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Tandy topics 



Ed Juge, Director, Computer Merchandising 
1500 One Tandy Center, Fort Worth, TX 76102 



Last month (May) was a blur! I 
was buried in catalog work, travel, a 
conference in New York, N.C.C. in 
Houston, and a few other time- 
consumers. I am sorry Tandy Topics 
was missing from the August issue. 
It was my fault, and I'll try not to let 
it happen too often. 

My travels provided my first 
chance at fairly serious (business 
use) programming on the new 
Pocket Computer PC-2. Wow! I'm 
impressed! If you haven't seen one, 
go look. 

For those of you who have a PC-2, 
I have three bits of information. 
First, a command was inadvertent- 
ly omitted from the owner's manual. 
When dimensioning string arrays, 
PC-2 has the capability to assign the 
exact number of storage locations 
required for the array. It was not 
explained. The form of the 
declaration is: 

DIM name (size)*length 

"Name" is a standard allowed 
array name. "Size" is the maximum 
number of array elements, from zero 
to 255. Remember, you'll get one 
more than specified. "Length" is an 
optional length of each string (1 to 
80 characters), and defaults to 16 if 
not specified. DIM NA$ (12)*20, for 
example, creates an array named 
NA$, which can have subscripts 
from zero to 12 (thirteen elements in 
the array), and strings can be up to 
20 characters long. 

The second thing concerns 
commands specific to the printer. If 
you detach the PC-2 from the printer 
and list the program, you get a tilde 
("squiggle" to those who didn't take 



high school Spanish) in place of all 
printer/plotter commands. Reason: 
They are contained in ROM in the 
printer, not the PC-2, so the PC-2 
can't convert the compressed 
command back into the real 
command for listing. So don't do 
what I did the first time, and retype 
all those commands again . . . they 
are still there. 

Third, there is a mandatory 
power-up procedure, when you've 
inserted batteries or pressed the LL 
RESET switch. It's simple: 

1) Turn the PC-2 on. It should say 
NEW0:CHECK. 

2) Press CLEAR. 

3) Be sure you're in PROgram 
mode (Use MODE key). 

4) Type NEW0 and press 
ENTER. 

5) Press SHIFT MODE to go to 
RESERVE mode. 

6) Type NEW and press ENTER. 

This resets all pointers and 
readies the PC-2 for work. Why? 
Because on power-up, internal 
pointers need to be reset, or the PC-2 
may think it has zero memory. 

PC-2 is really an amazing 
computer — next best thing to 
carrying a Model III in your pocket! 
Of course, I've watched it being 
developed, reviewed hardware and 
language specifications, physical 
design — the whole thing, but 
actually working with one was a 
real pleasure. I hope you'll be as 
impressed with it as I was. 

Hard Disk Owners 

TRSDOS 4.1 (our new hard disk 
operating system which is 
compatible with slim-line or 



standard floppy drives) and its final 
hard disk owner's manual, are now 
available. If you have purchased a 
hard disk, and sent in your 
registration card from the 
temporary manual, you should now 
have yours. A letter went out to all 
owners of record. 

Model 16 Multi-User System 

It appears we've overestimated 
the number of hours in our 
engineers' days. I told you in July 
about the delay in Arcnet. Well, 
we're going to have to slip the Model 
16 multi-user operating system 
around to the first quarter of 1983, 
too. Development teams are (and 
have been) working on both 
projects, but there weren't enough 
people available to hold the original 
expected dates. We apologize, and 
will attempt to keep you up to date. 

New Radio Shack Catalog 

The new 1983 Radio. Shack 
catalog will be available in our 
stores during the first days of 
September. You'll find computers on 
the last 12 pages and the back cover. 
There are some major new hardware 
items and lots of new software 
listed. Be sure to pick one up at your 
nearest outlet. 

In July, I told you Model III Super 
Scripsit would be out in June, and 
Profile III Plus in late July. An 
obscure bug or two in Scripsit took 
longer to find than expected, 
causing about a two-month slip. 
Profile III Plus was also delayed, 
but should be showing up about the 
time you read this. Murphy said it: 
"Anything that can go wrong, will!" 
See you next month. ■ 
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Pie charts 

As easy as 3.141592654 

Model I/III, tape or disk, printer optional 



The use of graphic aids in presentations and reports 
enhances the message to be delivered. The time that has 
to be invested in the production of these is often so high 
that people shy away from the task and use few (or no) 
graphics with the material documentation. For these 
reasons, throughout the history of computing, several 
pieces of hardware and software have been developed 
for relatively easy production of graphics with the help 
Of computerized tools. 

Video screens and slow printers may be effectively 
used for this task. The straightforward, initial applica- 
tions one sees in this field are the graphs of single value 
functions (as in a series of characters on the printer 
paper) with, perhaps, coordinates drawn and 
coordinate marks and labels. Further on, one sees more 
full graphics with histograms and bar charts, very 
useful for examining and analyzing experimental 
frequency distributions. Finally, one sees circles. 

There is a special case of the circle (with some 
additional stuff) that is very popular in presentations: 
the pie chart. The pie chart is another way to 
graphically represent a frequency distribution. One 
usually finds colored or shaded versions of these, and 
when there are not too many "pieces of pie," it really 
drives home strong statistics. A pie chart is a circle in 
which a number of lines project radially from the center. 
These lines divide the circle into segments. The area of 
each segment is proportional to the relative percent that 
piece of circle represents in the frequency distribution. 

One could see this proportionality in a different way. 
In general, if one has a proportion p (where < p < 1 ) of 
the circle to represent, the angle formed by the two 
straight line segments is 360Xp degrees. 

Difficulties in Drawing Lines 

The main difficulty in drawing any line is distortion. 
Probably all of us have sent the image we had on the 
screen to the printer— maybe a graphic image that 
really impressed us. That's why we wanted a hard copy 
in the first place. If the image we have on the screen is a 
circle, it comes out on the printer as a very flat ellipse! 
This phenomenon happens, not only with curvilinear 
figures such as circles, parabolas, ellipses and 
hyperbolae; but also with straight lines. With lines, we 
don't notice too much distortion. If you make a 45-degree 
line on the screen and output to the printer, it still looks 
straight, yet it is no longer a 45-degree line. 

What we wish to do is to transform a graphic pattern 
without distorting it. Think of a straight line equation, 
multiply everything by the same factor and maybe add 
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a constant to everything. If you are familiar with 
algebra, you know this is called a linear transformation. 

We want to make a linear transformation on the circle 
so that it looks like a circle, no matter which computer 
medium was used. 

With the line, there are milder problems that have to 
be solved. A linear transformation on the equation of a 
straight line will retain the same slope it started with. A 
second problem is that, once we have figured out where 
our circle is to be, we must make sure that the line passes 
exactly through its center. A third problem is that we 
don't want to draw the whole line, but only a piece of it- 
one that connects the center of the circle with the correct 
point on the periphery of the circle. 

Algebra and Trigonometry 

In Figure 1, lx is the horizontal axis (marked out in 
inches), ly is the vertical axis (also marked out in 
inches), and r is the radius of the circle (in inches). The 
equation for a circle of radius r, with center a inches 
from the ly axis and b inches from the lx axis is, using 
TRS-80 BASIC notation: 

(1) (lx-a)t2 + (ly-b)!2 = rt2 
Unfortunately, the units of measurement available to 

us on the printer are not inches but specific points on the 
line, separated at regular intervals. The lines are spaced 
at specific regular intervals. On an Okidata Microline- 
80, one can print characters on the line at densities of 5, 
10 or 16.5 characters per inch; and print these lines at 
densities of 6 or 8 lines per inch. Given the printing 
parameters, we would like our circle to come out as a 
circle every time. 

Let's call xf the horizontal printing density and yf the 
vertical printing density. If nry are the number of 
vertical lines that correspond to r inches, nx the number 
of horizontal points that correspond to lx inches, ny the 
number of lines that correspond to ly inches, nax the 
number of horizontal points that correspond to a inches, 
and nby to the number of lines that correspond to 
inches, the following relations are straightforward: 

(2) lx * xf = nx ly * yf = ny 
a * xf = nax b * yf = nby 

r * yf = nry 
The equation for the circle (1) can be expressed 
(instead of in inches) in our available units by using the 
simple relations above (2). 

(3) ((nx-nax)/xf)t2 + ((ny-nby)/yf)t2 = (nry/yf)t2 
With simple algebraic manipulations, we can solve 

for nx and get: 

(4) nx = xf * (a ±SQR(r!2 - (ny/yf-b)?2)) 
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IS THIS YOUR CUSTOMER? 

When your customer needs you, he needs you NOW! Why make him search through a ton of 
local phone books or back issues of magazines for your number? 

THE COMPUTERIST'S DIRECTORY YELLOW PAGES are the one quick reference to your 
products or services for the personal and small business computerlst. Hardware, software, 
services, supplies and much more are conveniently Indexed and cross referenced, placing 
your company on your customer's desk six months at a time-. Now you can have Inexpensive 
advertising Insurance assuring lhaf once your product announcement and ads have made 
their impression, your customers will be able to find you when they are ready to buy! 

THE COMPUTERISTS DIRECTORY WHITE PAGES are the first attempt by any 
publication to catalog the individuals and groups that are creating the Information 
Revolution The White Pages contain listings by individuals, clubs, user groups, 
computerized bulletin boards and professional associations. Many listings also include 
network ID numbers [Source, CompuServe, etc.] making the Computerist's Directory a 
pioneer in facilitating Electronic Mail & Conferencing 
One Computerist's Directory is worth a room full of local phone directories 
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Measuring only 7" x 10" x 3", the XYZ SWITCHBOX permits 
manual switching of a common port to any of 3 distribution ports. 
This is accomplished by 4 internally mounted DIPswitches. Each 
port can be separately configured for normal or null-modem use 
and can enable, disable or jumper lines 4, 5, 6, 8 and 20. This 
versatile switching capability permits rapid configuration for 
CRT terminals, LQ printers and CPU ports. A CPU port may 
select any of 3 different printers or term inals. Likewise, 3 different 
CPU ports may select one printer or terminal. No batteries, 
external power or wiring required. 

Part No. 232SB (Standard Model) ONLY $1&0.00 
Part No. 232SB-A (Model with LED) $22 9.00 

SYZYGY™ #49 

P.O. Box 4036 ® 256 W. San Bernardino Rd., Covina, CA 91723 
(213) 332-3320 ^ 
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where we changed back to a andr, since that is what the 
user will enter in inches. No matter how we set up the 
printer, this equation gives the linear transformation of 
the original so that its form and internal proportions are 
preserved. 

The straight line equation and its treatment are very 
similar. Using the same notation and looking at Figure 
2, the equation of a line that passes through point (a,b), 
with slope beta, is: 

(5) (ly - b) = beta * (lx - a) 
Solving for lx: 

(6) lx = a + (ly - b)/beta 

Using the equations relating lx to nx, and ly to ny (2), 
the equation is transformed to: 

(7) nx/xf = a + (ny/yf - b)/beta 

Since beta is the slope, we can substitute TAN(theta), 
where theta is the angle between the horizontal axis and 
the straight line. Making that substitution and solving 
for nx, the equation for the line becomes: 

(8) nx = xf * (a + (ny/yf - b)/TAN(theta)) 

This equation is also free of the first two problems that 
were discussed previously in relation to the line. 

The reason we are solving for x (or for nx), is that in 
the program, the independent variable is ly (or ny). 
These two equations, (4) for nx (circle), and (8) for nx 
(line), are the ones that are to be used in the program. 

The Product of the Program 

After all of the conversational song-and-dance where 
the user provides information, the program displays a 
segmented circle or pie chart. After striking any key, the 
program produces a new screen with two lines of a 
descriptive title and data corresponding to the segments 
the user supplied. 

On the printer, the program gives the user a chance to 
align the page and prints the two lines of user-supplied 
title. This is followed by the pie chart drawn with a user- 
specified keyboard character, and by user-supplied 
labels and percentages of each segment of the pie. 

The user must supply printer parameters: size and 
position of the circle, number and proportion of each 
segment or pie piece, heading labels, and segment 
labels. The information to be entered is as follows: 

—Description or title of the pie chart. 

—Number of segments. 

—Description or label of each of the segments. 

—Video or printer output. 

—Position of the center of the circle relative to the left 
and top edges of the screen or paper. For the printer, the 
answers must be in inches. For the screen, there are 
special instructions. If a part of the circle, or one of the 
radial lines, does not fall within the physical 
boundaries, there is no problem. You will see only the 
part of the figure that can be drawn. 

—Enter the proportion, or fraction of the pie, that a 
segment is to cover. The last segment is computed 
automatically. Each of the quantities must be larger 
than zero and less than one. The algorithm checks 
whether the sum of fractions is less than one. 

—Select the character to be used by the printer. Screen 
graphics are drawn with SET(x,y). 

—Physical parameters for the printer: horizontal 
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printing density and vertical printing density. 

Program Comments 

The program is essentially equations (4) and (8). The 
rest of the program is the necessary supporting cast. 
Only those portions of the program that require an 
explanation are discussed here. 

Line Specs— Each of the lines to be used as a pie 
segment is described by its slope, and therefore by its 
angle. For the screen, this is determined in lines 720 to 
820, and in lines 2150 to 2250 for the printer. The. 
variable used for the angle of line I is AN(I). 

Circle Loop— The loop for drawing a circle consists 
of lines 840 to 1100 (video), and lines 1340 to 1620 
(printer). 

Hidden Lines— Controls have been built in so that 
only the portion of the figure that falls within the limits 
of the computing medium is drawn. If a user is careless 
enough, no pie chart will appear. These controls maybe 
observed in the transfers to the NEXT Y command in 

i 

line 1100 (screen) and line 1620 (printer). 



Figure 1 
Equation and graphic representation of a circle. 
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Formulas— The formula for the circle (4) is on lines 
1400 and 1410 for the printer. The formula for the line 
appears on line 1520. For the screen, the formulas are a 
bit different. The one for the circle is on lines 890 and 
900, and for the line on lines 1010 and 1060. 

Straight Lines— The loop to draw the points on 
lines that fall within the circle and on the horizontal 
slice is between lines 930 and 1080 (screen) and between 
1430 and 1590 (printer). Vertical lines are treated as 
special cases. 



Figure 2 
Equation and graphic representation 

of a straight line. 
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Boundaries of Straight Lines— To draw only a 
piece of the line, the left and right halves of the circle are 
treated separately and it is determined whether the 
point falls within the boundary (center vertical line and 
circle periphery). In the program, this vertical line is 
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Figure 3 
Sample printer output of the program. 

Test for Hardcopy Output of a Pie Chart 
Grade Distribution on Test Number 3 



distortion of graphics in a media where horizontal and 
vertical scales are different, and vary from run to run. 
These problems are classic with the printer— horizontal 
and vertical printing densities may be set to different 
values in each run. 



« * * * 

* ** * 



Segment numbering: 



starting from It 



f. 1) Proportion of ft' 5 

( 2) Proportion of B' s 

( 3) Proportion of C s 

( 4) Proportion of D' s 

( 5) Proportion of F' s 



8.00 •/■ 
22. M0 % 
45.00 % 
17. 00 % 

S. 00 % 



determined by A% (screen) and A (printer). These 
decisions are made in lines 990 to 1020 and 1040 to 1070 
(screen), and 1500 to 1530 and 1550 to 1580 (printer). 

Zero— The twelve noon radial line is the arbitrary 
zero, or starting point, to draw the rest of the radial 
lines. Each point on this line is drawn in lines 1090 
(screen) and 1580 (printer). 

This program solves the problems associated with 




TWENTY-FIRST 
CENTURY CLUB 

1607 N. Cochran 
P.O. Box 2046 Hutchinson, Ks. 67501-0396 
316-663-1047 



* Of interest to all TRS-80 computer owners. 

* Benefit from club volume purchasing. Sav- 
ings up to 50% of retail on popular products. 

* Objective, unbiased, tough reviews of hard- 
ware, software, systems, supplies, Critical 
analysis of what products can and cannot do. 

* Newsletters with stories, industry news. 
Practical uses for business, personal, pro- 
fessional, hobby and entertainment. 

* Programming, support for compilers, Basic, 
etc. Beginners and advanced. 

* Comparison of product groups by cost, 
capabilities, etc. 

* A source for selling your own programs and 
inventions. 

* MEMBERSHIP $25.00 PER YEAR 

Master Card and Visa accepted 
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Change statements of the form 

MID$(W$,M,N)=U$ 
to the form 



Program Listing for Pie Charts 

100 ' MACHINE DEPENDENT FEATURES 

110 ' 

120 'This program was developed to run 

on a Model III TRS-80 

130 'operating under TRSDOS 1.2, and us 

ing an Okidata 

140 'Microline 80 printer for the hardc 

opy output. The use of 

150 'Disk BASIC implies only one set of 

changes for non disk 

160 'BASIC? the use of the MID$ functio 
n on the left hand side 
170 'of the equal sign. This is easily 

resolved for these 

180 'systems by making the following ch 
anges: 
190 
200 
210 
220 
230 
240 
250 

260 ' W$=LEFT$(W$ f M-l)+U$+RIG 

HT$ (W$, LEN(W$)-M-N+1) 
270 ' 

280 'The statements that are specific t 
o the printer are the 
290 'LPRINT statements that output cont 
rol characters. To make 
300 'the necessary changes just change 
the statements 
310 ' 

320 'Horizontal density? 
330 ' LPRINT CHR$(30) : 10 

char/in 

340 ' LPRINT CHR$(31) : 5 

char/in 

350 ' LPRINT CHR$(29) t 16.5 

char/in 

360 'and vertical density: 

370 ' LPRINT CHR$( 27); CHR$( 54 

) : 6 lines/in 

380 ' LPRINT CHR$ (27) ;CHR$ (56 

) : 8 lines/in 

390 ' 

400 'to the corresponding statements fo 

r a particular printer. 
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410 ' 

420 DEFINT I-N, X, Y 

430 DIM AN (20), PR(20), DE$(21) 

440 CLEAR 2000 

450 PI=3. 1415926 

460 CLS: PRINT TAB (23) "Pie chart graph 

ics" 

470 GOSUB 2330 'Get descriptions 

480 CLS 

490 PRINT "Output to the (1) screen, (2) 

printer. (3)Finish." 

500 K$=INKEY$: IF K$="" THEN 500 ELSE 

K=VAL(K$) 

510 IF K<1 OR K>3 THEN 500 

IF K=2 THEN 1260 

IF K=3 THEN CLS: END 
i 



***** Output to the video ***** 



520 

530 

540 

550 

560 ' 

570 CLS 

580 PRINT "Measurements will be in pixe 

1 units: The screen measures" 

590 PRINT "48 units vertically (Y units 

) and 128 units horizontally" 



600 PRINT "(X units). If the specified 
units are too large, only the" 

610 PRINT "piece of the pie that passes 
over the screen will be visible." 

620 C0=2.1 

630 PRINT 

640 INPUT "Pie radius in Y units: "; R% 

650 PRINT 

660 INPUT "X units from left margin to 

pie center: "; A% 

690 PRINT 

700 INPUT "Y units from top margin to p 

ie center: "; B% 

710 AP=0 

720 FOR 1=1 TO NP 

730 PRINT: PRINT "Fraction of piece"; I 

;: INPUT " of pie: "; PR (I) 

740 IF PR(I)>=1 OR PR(I)<=0 THEN GOTO 7 

30 

750 AP=AP+PR(I) 

760 IF AP>1 THEN AP=AP-PR(I) : PRINT "Su 

m of fractions greater than 1": GOTO 73 



770 PR(I)=AP 



BOOK/ DISK COMBINATIONS 

BECAUSE YOU DIDN'T BUY A COMPUTER 
TO PRACTICE YOUR TYPING 



« Practical manuals that show 
you how to program your TRS- 
80™ for business, learning, and 
pleasure • Convenience disks 
that contain all the programs 
and subroutines in the books 
they accompany— error free and 
ready to run 

PLUS the Wiley expertise that 
has helped more than a million 
people learn how to program, 
use, and enjoy microcomputers. 

Look for them at your favorite 
bookshop or computer store. Or, 
check the sets that interest you, 
fill in the ordering information, 
and mail us this ad. 



□ 



JOHN WILEY & SONS, Inc. 

605 Third Avenue, 
New York, NY 10158 

In Canada: 22 Worcester Road, 
Rexdale, Ontario M9W 1L1 



1807' 



For faster service call toll free: 800-526-5368. 
In New Jersey, call collect (201) 797-7809. 
Order Code * 3-6771 . VISA, MasterCard, 
American Express accepted on phone orders. 



THE TRS-80™ MEANS BUSINESS SET 

Ted G. Lewis 
Covers file merging, data base, word processing, payroll, financial analysis, and 
scores of other business applications. Includes one 8" disk for TRS-80™ 
Model II. (Requires two disk drives, 64K of memory.) 1-87565-1 $32.90 

FAST BASIC: BEYOND TRS-80™ BASIC SETS 

George A. Gratzer with Thomas G. Gratzer 
Learn a streamlined form of BASIC that accelerates computations by 3 or 
4 times. . .and some functions by a factor of 1,000. Available in disk or 
cassette for TRS-80™ Model I and Model III. (Requires 32K of memory.) 

□ Model I Disk Set: (one 5Va" disk) 1-89844-9 $34.90 

□ Model III Disk Set: (one 5Va" disk) 1-89845-7 $34.90 

D Cassette Set (for Model I or Model III): 1-89846-5 $34.90 

Please send the sets indicated for 15-DAY FREE EXAMINATION. (Restricted to the continen- 
tal U.S. and Canada.) 
MAIL TO: JOHN WILEY & SONS, Inc., P.O. Box 092, Somerset, N.J. 08873. 

D Payment enclosed, plus sales tax. Wiley pays postage/handling. We normally ship within 
10 days. If shipment cannot be made within 90 days, payment will be refunded. 

Q Bill me. D Bill firm or institution 
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I TRS-80 is a trademark of Tandy Corp # 52 SIGN HERE __ ^ ^^nce^u^ctjc^h^ge^ttho^no^ce^ 
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780 IF PR(I)=.5 THEN AN(I) =~PI/2: GOTO 

820 

790 IF PR(I)=o75 THEN AN(I)=PI: GQrO 82 



800 AN(I)=ATN(TAN(PR(I)*2*PI-PI/2)) 

810 IF PR(I)>.5 AND PR(I)<1 THEN AN(I) = 

-AN (I) 

820 NEXT I 

830 CLS 

840 FOR Y=FIX(B%-R%+.5) TO FIX(8%+R%+.5 

) 

850 IF Y<0 OR Y>47 THEN GOTO 1100 

860 SQ=R%*R%-(Y-B%) [2 

870 IF SQ<-.1 THEN GOTO 1100 

880 SQ=SQR(ABS(SQ)) 

890 XL=FIX(A%-C0*SQ+.5) 

900 XR=FIX(A%+C0*SQ+.5) 

910 IF XL >=0 AND XLX128 THEN SET(XL,Y) 

920 IF XR >=0 AND XR<128 THEN SET(XR,Y) 

930 FOR 1=1 TO NP 

940 IF ABS(AN(I))OPI/2 THEN GOTO 980 

950 IF SGN(AN(I))>0 THEN GOTO 1080 

960 IF Y>B% AND A%>=0 AND A%<128 THEN S 

ET(A% f Y): GOTO 1080 

970 GOTO 1080 



First came MICROPROOF 



TM. 



"There is simply no finer program available ..." 
(Creative Computing. March 1982) 



Now: 




The Ultimate 



CORNUCOPIA 
SOFTWARE, INC. 

1625 Beverly Place 
Berkeley.CA 94707 
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980 IF PR(T)<.5 THEN GOTO 1040 

990 IF ABS(TAN(AN(I)))<=.001 AND Y=FIX( 

B%+.5) THEN FOR X=A% TO XL STEP -1: IF 

X<0 OR X>127 THEN NEXT X: GOTO 1100 ELS 

E SET(X,Y): NEXT X: GOTO 1080 

1000 IF ABS(TAN(AN(I)))<=.001 THEN GOTO 

1080 
1010 X=FIX(A%+C0*(Y-B%)/TAN(-AN(I))+.5) 
1020 IF X>XL AND X<A% AND X>=0 AND X<12 
8 THEN SET(X,Y) 
1030 GOTO 1080 

1040 IF ABS(TAN(AN(I)))<=.001 AND Y=FIX 
(B%+.5) THEN FOR X=A% TO XR: IF X<0 OR 
X>127 THEN NEXT X: GOTO 1080 ELSE SET(X 
,Y): NEXT X: GOTO 1080 
1050 IF ABS(TAN(AN(I)))<=.001 THEN 1080 

1060 X=FIX (A%+C0* (Y-B%) /TAN (AN (I) ) +. 5) 
1070 IF X<XR AND X>A% AND X>=0 AND X<12 
8 THEN SET(X,Y) 
1080 NEXT I 

1090 IF Y<=B% AND A%>=0 AND A%<128 THEN 
SET(A%,Y) 
1100 NEXT Y 
1110 K$=INKEY$: IF K$= n " THEN 1110 

1112 « 

1113 ' ***** Output labels to the scree 
n ***** 

1114 * 

1120 CLS: 11=1 
1130 FO$="!##l % 

% ###.## !" 
1140 PRINT Tl$: PRINT T2$: PRINT 
1150 IF NP+1<=12 THEN I2=NP+1 
1160 FOR 1=11 TO 12 
1170 IF 1=1 THEN PC=PR(1) 
1180 IF I=NP+1 THEN PC=1-PR(NP) 
1190 IF I>1 AND K=NP THEN PC=PR(I)-PR( 

I-D 

1200 PRINT USING FO$; " (";I;") ";DE$ (I) ; 

PC*100;"%" 
1210 NEXT I 

1220 K$=INKEY$: IF K$= ,,H THEN 1220 
1230 IF I20NP+1 THEN 11=12+1: I2=NP+1: 
GOTO 1160 
1240 GOTO 480 
1250 REM 

1260 REM ***** Output to printer ***** 
1270 REM 

1280 PRINT: LINE INPUT "Character to dr 
aw pie with: "; C$ 
1290 C$=LEFT$(C$,1) 
1300 GOSUB 1750 'Printer alignment 
1310 LPRINT Tl$: LPRINT T2$: LPRINT: LP 
RINT 

1320 GOSUB 1880 'Get printer parameters 
1330 KB=FIX(XF*A+.5) 
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1340 FOR Y=FIX(YF*(B-R)+.5) TO FIX(YF*( 

B+R)+.5) 

1350 IF NM>FIX(l+XF*(A+R)+.5) THEN NM=F 

IX(l+XF*(A+R)+.5) 

1360 PL$=STRING$(NM,32) 

1370 SQ=R*R-(YAF-B) [2 

1380 IF SQ<-.1 THEN GOTO 1620 

1390 SQ=SQR(A8S(SQ)) 

1400 XL=FIX(l+XF*(A-SQ)+.5) 

1410 XR=FIX(l+XF*(A+SQ)+.5) 

1420 IF XL>=1 AND XL<NM+1 THEN MID$(PL$ 

,XL,1)=C$ 

1430 FOR 1=1 TO NP 

1440 IF Y<=YF*B THEN MID$ (PL$,KB,1)=C$ 

1450 IF ABS(AN(I))OPI/2 THEN GOTO 1490 

1460 IF SGM(AN(I))>0 THEN GOTO 1590 
1470 IF Y>YF*B THEN MID$ (PL$,KB,1)=C$: 
GOTO 1590 
1480 GOTO 1590 

1490 IF PR(I)<.5 THEN GOTO 1550 
1500 IF ABS (TAN (AN (I) ))<=. 001 AND Y=FIX 
(YF*B+.5) THEN FOR X=XL TO KB: IF X<1 
R X>NM THEN NEXT X: GOTO 1590 ELSE MID$ 
(PL$,X,1)=C$: NEXT X: GOTO 1590 



1510 IF ABS(TAN(AN(I)))<=o001 THEN GOTO 

1590 
1520 X=FIX(1+XF*(A+(Y/YF-B)/TAN(-AN(I)) 

)+.5) 

1530 IF X>XL AND X<KB AND X>=1 AND X<NM 

+1 THEN MID$(PL$,X,1)=C$ 

1540 GOTO 1590 

1550 IF ABS(TAN(AN(I)))<=.001 AND Y=FIX 

(YF*B+.5) THEN FOR X=KB TO XRs IF X<1 

R X>NM THEN NEXT X: GOTO 1590 ELSE MID$ 

(PL$,X,1)=C$: NEXT X: GOTO 1590 

1560 IF ABS(TAN(AN(I)))<=.001 THEN 1590 

1570 X=FIX (1+XF* (A+ (Y/YF-B) /TAN (AN (I) ) ) 

+ .5) 

1580 IF X<XR AND X>KB AND X>=1 AND X<NM 

+1 THEN MID$(PL$,X,1)=C$ 

1590 NEXT I 

1600 IF XR>=1 AND XR<NM+1 THEN MID$ (PL$ 

,XR,1)=C$ 

1610 LPRINT PL$ 

1620 NEXT Y 

1630 LPRINT CHR$(30): LPRINT CHR$(27);C 

HR$(54) 




'Color Compu^, 




Are you tired of searching the latest magazine for did you mail your hard earned cash only to receive a 

articles about your new Color Computer? When was the turkey because the magazine the ad appeared in doesn't 

last time you saw a great sounding program listing only review Color Computer Software? If you have any of 

to discover that it's for the Model I and it's too complex these symptoms you're suffering from Color Computer 

to translate? Do you feel that you are all alone in a sea of Blues! 
Z-80's? On finding on ad for a Color Computer program 

But take heart there is a cure! 
It's COLOR COMPUTER NEWS. 

The monthly magazine for Color Computer owners and only Color Computer owners. CCN contains the full range of 
essential elements for relief of CC Blues. Ingredients include: comments to the ROMS, games, program listings, product 
reviews, and general interest articles on such goodies as games, personal finances, a Kid's page and other subjects. 
The price for 12 monthly treatments is only $21.00 and is available from: 
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1631 « 

1632 ' ***** Output of labels to the pr 
inter ***** 

1633 B 

1640 FO$="!##! % 

% ###•## I" 
1650 LPRINT: LPRINT 

1660 LPRINT "Segment numbering: startin 
g from 12 noon, clockwise": LPRINT 
1670 FOR 1=1 TO NP+1 
1680 IF 1=1 THEN PC=PR(1) 
1690 IF I=NP+1 THEN PC=1~PR(NP) 
1700 IF I>1 AND K=NP THEN PC=PR(I)~PR( 

1710 LPRINT USING F0$; " (";I;")";OE$ (I) 

; PC* 100;"%" 

1720 NEXT I 

1730 GOSUB 1750 : GOTO 480 

1740 REM 

1750 REM ***** Printer alignment ***** 

1760 REM 

1770 PRINT 

1780 PRINT "Want to align printer (Y/N) 

: " * 

1790 K$=INKEY$: IF K$="" THEN 1790 

1800 IF K$="N" THEN RETURN 

1810 IF K$<>"Y" THEN 1790 

1820 PRINT 



FREE 

business software 

directory 

• Radio Shack's Model I, II, III. 
@ Heath's MBASIC and HDOS 

• CPM: Xerox, Alto... 

• IBM Personal Computer 



l IDM2is GREAT !' 



■ publisher of 80-US 



" (GL) superior to either the Osborne (SBSG & Taranto) 
or Radio Shack... MAIL-X has a greater capacity... 
more flexible than (R.S.)" 

-columnist of 80-microcomputing 

" imperceptively fast... (DBMS) is a good and reliable 
workhorse" -publisher of Interface Age 

Data base manager, integrated accounting package 
(AR, AP, GL & Payroll), inventory, word proces- 
sing, and mailing list. Compare and be selective ! 
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1830 PRINT: PRINT "Make sure the printe 

r is turned on, then hit <ENTER>" 

1840 K$=INKEY$: IF K$="" THEN 1840 

1850 PRINT: PRINT "To stop paper moveme 

nt, hit any key." 

1860 K$=INKEY$: IF K$<>"" THEN RETURN E 

LSE LPRINT: GOTO 1860 

1870 REM 

1880 REM ***** Get printer parameters * 

1890 REM 
1900 CLS 

1910 PRINT "Horizontal linear density - 
in characers per inch" 
1920 PRINT " (1) 10 Characters/inch 

- normal" 

1930 PRINT " (2) 5 Characters/inch 

- big" 

1940 PRINT " (3) 16.5 Characters/in 
ch - tiny" 

1950 K$=INKEY$: IF K$="" THEN 1950 
1960 K=VAL(K$) 

1970 IF K<1 OR K>3 THEN 1950 
1980 IF K=l THEN XF=10 ELSE IF K=2 THEN 
XF=5 ELSE XF=16.5 
1990 IF K=l THEN LPRINT CHR$(30): NM=71 
2000 IF K=2 THEN LPRINT CHR$(31): NM=36 
2010 IF K=3 THEN LPRINT CHR$ (29) : NM=13 
2: GOSUB 2270 

2020 PRINT 

2030 PRINT "Vertical linear density - i 

n characters per inch" 

2040 PRINT " (1) 6 Lines/inch - nor 

mal" 

2050 PRINT " (2) 8 Lines/inch - com 

pact" 

2060 K$=INKEY$: IF K$="" THEN 2060 ELSE 

K=VAL(K$) 
2070 IF K<1 OR K>2 THEN 2060 
2080 IF K=l THEN YF=6 ELSE YF=8 
2090 IF K=l THEN LPRINT CHR$ (27) ;CHR$ (5 

4) 

2100 IF K=2 THEN LPRINT CHR$ (27) ;CHR$ (5 

2110 PRINT: INPUT "Circle radius, in in 
ches: "; R 

2120 PRINT: INPUT "Inches from the left 
margin to the pie center: "; A 
2130 PRINT: INPUT "Inches from the top 
margin to the pie center: "; B 
2140 AP=0 

2150 FOR 1=1 TO NP 

2160 PRINT: PRINT "Fraction of piece"; 
I;: INPUT "of pie: "; PR (I) 
2170 IF PR(I)>=1 OR PR(I)<=0 THEN GOTO 
2160 
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2180 AP=AP+PR(I) 

2190 IF AP>1 THEN AP=AP~PR ( I ) : PRINT "S 

um of fractions is greater than 1.": GO 

TO 2160 

2200 PR(I)=AP 

2210 IF PR(I)=.5 THEN AN(I)=-PI/2: GOTO 

2250 
2220 IF PR(I)= e 75 THEN AN(I)=PI: GOTO 2 

250 

2230 AN(I)=PR(I)*2*PI-PI/2 
2240 IF PR(I)> 5 AND PR(I)<1 THEN AN(I) 
=-AN(I) 
2250 NEXT I 
2260 RETURN 

2270 REM ***** Warning for use of tiny 
characters ***** 
2280 PRINT 

2290 PRINT "You should have executed 'F 
ORMS (WIDTH=132)' while under" 
2300 PRINT "TRSDOS if a large circle wi 
th tiny characters is needed." 
2310 PRINT: PRINT "Hit any key to conti 
nue, or hit <BREAK>." 

2320 K$=INKEY$s IF K$="" THEN 2320 ELSE 
RETURN 



2330 REM 

2340 REM *** Titles and segment descrip 

tions *** 

2350 REM 

2360 PRINTS LINE INPUT "Line 1 of title 

: "; Tl$ 

2370 T1$=LEFT$(T1$,63) 

2380 PRINT: LINE INPUT "Line 2 of title 

: "? T2$ 

2390 T2$=LEFT$(T2$,63) 

2400 PRINT: INPUT "Number of segments i 

n pie (>1): "; NP 

2410 IF NP<=1 THEN PRINT "Number must b 

e greater than one": GOTO 2400 

2420 NP=NP-1 

2430 PRINT: PRINT "For each of the"; NP 

+1; "segments of the pie enter a" 

2440 PRINT "description or label (<48 c 

haracters) :": PRINT 

2450 FOR 1=1 TO NP+1 

2460 PRINT "Segment"; I;: LINE INPUT DE 

$d) 

2470 DE$(I)=LEFT$(DE$(I),47) 

2480 NEXT I • 

2490 RETURN ■ 
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magazine & club 
elp your child discover the world of 
Microcomputing. 

Club includes: • One Year Magazine Subscription 

• Program Exchange • Free Computer Advice 

* Educational Programs • Exciting Contests 

• and more 



Membership 

$24-00 

Subscription Only 
$16.00 



— WANTED 

Articles, Stories, Cartoons, 
and Programs of interest to 
the young people. 
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MAIL YOUR CHECK TODAY TO COMPUKIDS 
■ P.O.B. 874 SEDALIA, MISSOURI 65301 PHONE 816/826-0689 
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The adventures of a software secret agent 



1982. Bob Liddil 



This is the city. Peterborough, 
New Hampshire. There are three 
thousand occupants of this quaint 
little New England hamlet. Each 
one has a story. I live here, too. I'm a 
software reviewer. 

It was Friday the seventh. I was 
working the day shift out of Arcade 
Division when a late breaking game 
came in. My assignment . . . review 
it. The boss is Mike Schmidt, my 
partner is a sentient expansion 
interface resident named Max. My 
name's Eighty. 

By now we all know the success 
story behind Big Five Software. The 
boys who yanked this fine little 
company up by its bootstraps have 
been extolled in legend and on Good 
Morning America. Their rags-to- 
riches story is most inspiring for all 
the toilers in the vineyards of 
computerdom. But did they earn all 
this attention? You bet they did. 

Each of the arcade games released 
under the Big Five label has unique 
entertainment qualities that offset 
any flaws, major or minor, that a 
critic might find. Even Robot Attack 
which I panned in a recent column 
has highly polished graphics and 
very passable sound. 

This new Defense Command, (as 
seen on TV's Good Morning 
America), is superbl It combines 
several proven elements of arcadia 
into a super hybrid of laudable 
quality. 

Picture this if you will. Momma 
Ship slides out onto the screen and 
disgorges assorted playing pieces, 
including you, the canisters you are 
protecting and some of the many 
creepy, floaty thingies that are your 
enemies. Shooting Momma Ship 
produces an unusual video tantrum. 
One usually does that once only. 
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Now that the playing field is 
arranged we have invaders, things 
floating down from the sky while 
you, brave defender, blast them into 
atoms . If the aggressors get past you 
they steal the little canisters. You 
can still shoot the invaders as they 
abscond with the goodies, but then 
you have to catch them as they fall, 
(for extra points, natch). 

You have smart bombs. But there 
are pregnant aliens ala the Merv 
bombs in Missile command. Hit one 
of those and you'll need a smart 
bomb ... or two ... or three. 

There are other surprises in 
Defense Command. But something 
that comes as no surprise is the utter 
excellence of the game. As an 
entertainer, as an arcade, as an 
outlet for hand-eye coordinationists, 
and as a dollar value Defense 
Command succeeds. In short, my 
money was well spent and I had a 
good time with the game. Big Five . . 
. keep up the good work. 

As I stare out the window at Mt. 
Monadnock, which overlooks the 
house I live in, I am reminded of 
other success stories in this 
fledgling industry. It is possible to 
make it selling computer software 
but not as easy for beginners as it 
was. 

■ 

Acorn, for example, which has 
many fine titles, and one of the best 
reputations in the industry, 
customer wise, started in the coal 
cellar of a Washington, D.C. 
townhouse. Its first program was an 
inauspicious little number called 
Ting Tong, which mimicked the 
earliest of classic video games. 

Acorn has had many hits since 
Ting Tong. Its first version of 
Pinball was an exciting graphic 
exercise, and who can forget Duel-N- 



Droids, a Christopher son classic 
which paved the way for the new 
graphics era. 

Even Instant Software, which 
constantly suffers from the Wayne 
Green shoot-in-foot syndrome, had 
humble beginnings. Long before the 
purchase of the huge motel they 
occupy, they were just a hole-in-the- 
wall, one of the many Wayne Green 
experiments that have gone up the 
flagpole over the years. Many top 
flight authors. Sparky Sarks, 
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(Starfighter from Adventure 
International) introduced the Solar 
Galactic Authority Navy in a still 
marketed program called Ball 
Turret Gunner. Jake Commander 
who wrote Macro-Mon, £The 
Shadow, from AOS) rated one of the 
top utility tools in 80 microdom, 
began with Instant Software as a 
submitee, with simple renumber 
and patch programs. Jake is now 
technical editor at 80 Microcomput- 
ing Magazine and a respected 
authority on TRS-80 products and 
procedures. 

Robert Krotts, of Dayton, Ohio, 
whose tounge-in-cheek Softcore 
Software Company pokes fun at the 
seriousness with which Adventure 
publishers market their work, has 
experienced modest success with 
Wet Tee-Shirt Contest and Madame 
Rosa's Massage Parlor, both of 
which aren't suitable for your 10 
through 12-year-old, Hell never get 
rich, but then, he's not really trying 
to. 



Al Loose, of Las Vegas, Nevada, 
producer of Forbidden Planet and 
Forbidden City, which are popular 
talking Adventures, is another new 
face experiencing success. His 
programs are worth their price and 
the public knows it. 

But for every success story there 
are shattered dreams. Mad Hatter 
Software died early on, taking Greg 
Hassett with them. Only Fasteroids, 
renamed Planetoids for Adventure 
International, survived. Adventure 
World, Greg's own attempt at 
marketing, failed. Computer Light 
and Sound, a southern California 
company which had two really top 
notch arcade games, never made it 
to the national marketplace. Even 
Programma International, which 
had everything you could ask for, 
marketing wise, bit the dust in a 
flurry of bankruptcy and broken 
promises. 

What's the handle for that trip to 
the stars, then? How do some 
companies succeed where others 



fail? Advertising is one. Without 
national advertising over a period of 
months, a new company cannot 
hope to survive. And it is not direct 
sales response that floats the new 
company, it is dealer sales. The 
advertisements must be backed up 
by widespread distribution or the 
consumer will not buy. 

You, the very reader who holds 
this issue of 80-U.S. in his hands, 
may be the next dreamer whose 
hopes are dashed to bits, or the next 
fresh entrepreneur who feeds the 
burning consumer flame in its quest 
for new programs. 

So it is with the voice of experience 
that I beseech you, be careful if you 
plan to market your program. Know 
your publisher, if he is your 
marketeer, or, if you are doing it 
yourself, don't give credit in any 
amount you can't afford to shrug 
away. Put your end user before 
yourself and give him more than 
what he pays for. 

Do this, and one day you might be 
shaking hands with David 
Hartman on Good Morning 
America, and having the whole 
country affirming what you already 
know. Dreams live. ■ 
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Hands Across the Sea 
Answers to two letters from 
Europe will be of general interest to 
all persons overseas who are 
interested in the ESF. First to 
Bernhard von Tauchnitz of Berlin, 
Germany, let me apologize for what 
seems to have been an oversight at 
Exatron. Your letter dated last 
November, was in the collection I 
received from Jim Perry. There was 
a large green question mark on it. 
Exatron has an overseas software 
catalog. You should write to them 
direct at 181 Commercial Street, 
Sunnyvale, CA 94086. Also, you say 
there are errors in the German 
translation of the Operator's 
Manual. Because you have waited 
so long, I am personally sending you 
a copy of @LOAD Volume 0, 
Number 1, and my spare copy of the 
manual. I hope the bits don't get 
knocked off the wafer by stray 
radiation during the long journey. 

A more recent letter to me, care of 
80- U.S., comes from Derek Trayler 
in Hornchurch, Essex, England. 
They tell me at Exatron that they 
are not actively promoting the 
establishment of ESFOA chapters 
in foreign countries. Primarily 
because the discount on Exatron 
products which these groups receive 
cannot be offered to them. It appears 
that this would violate agreements 
with foreign distributors of Exatron 
products. Your question about the 
Video Genie will interest many, I'm 
sure. Can the ESF be used with it? 
The answer is yes and possibly no. 
Video Genie is a product of EACA 
International, limited, of Hong 
Kong. It is distributed in the U.S. as 
the PMC ... of which there are 
several models. Those models which 
contain a built-in cassette deck are 
virtual clones of the TRS-80 Model I. 
The ESF can be used with it if you 
can obtain the bus conversion 
accessory which converts the fifty- 
lead cable to the standard Model I 
90 80-U.S. Journal 







forty-lead cable. PMC sells this in 
the U.S. Whether it is obtainable in 
England or not, I don't know. 

Lore of the ESF 
FMS (File Management System) 
has been Exatron's all time best 
selling program . . . and for good 
reason. Version 2 makes a good 
thing substantially better. 

FMS is a Database Manager. It 
produces a user defined file of 
records which contain named fields, 
such as author, title, last name, first 
name, street address . . . anything 
the user designates, up to fourteen- 
string, integer or single-precision 
fields. These records can be sorted 
on any field, selected to include 
specified elements only, formatted 
in tabulations or as labels with 
confidential data not printed, etc., 
etc. 

Unfortunately, for many of us, the 
complete set of programs will cost 
$80.00 versus a mere $19.95 for the 
old FMS. If you want this power, 
though, it's still a bargain compared 
to the equivalent software available 
on disk. At this writing, 
deliberations are underway 
concerning whether to sell some of 



the important modules separately 
for a fraction of the total cost. 

The documentation of all six 
programs in the system is 
consistently excellent. Two of these 
programs are new ESF I/O 
routines, versions 4. IB and 4.1 C, 
written especially for this package. 
These almost certainly will be 
available separately. They are, to 
say the least, remarkable. Features 
common to both are as follows. 
Recorded before the main FMS on 
your wafer, they end their load by 
starting LOAD of the next file. As 
shipped, the main FMS is recorded 
in AUTORUN mode which means 
that it runs as soon as it loads. Thus 
you @LOADl only. The I/O 
message appears, FMS loads 
automatically and starts. There's 
never a chance to forget the I/O 
routine! That's only the beginning. 
With I/O 4.1B and 4.1C in place 
you can TAB all the way to 132 
without any funny business to get 
past 64. 

These routines also add two 
powerful words to BASIC. The 
@LINE command beats INPUT 
and many of the INKEY$ routines 
we have all written (80-U.S. has a 
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file full of manuscripts containing 
such input routines). It does what 
LINE INPUT in Level III and disk 
BASIC does, namely, accepts all 
punctuation including the 
delimiters (quote, semi-colon, 
comma). It is lightning fast and 
doesn't gobble string space like an 
INKEY$ routine. Many programs, 
including FMS, accept all input as 
strings, converting numerics via a 
VAL statement. With @LINE you 
can make this conversion before 
any string space is used! This avoids 
visits from the "garbage collector" 
to remove unneeded strings . . . 
which can cause horrendous 
slowdowns if a program uses large 
amounts of string space. 

More spectacular is the @S 
command. When used with the 
proper array designators as 
operands, this calls an incredibly 
fast machine language routine to 
sort the array on the field 
designated. For me it sorted an 
eight-record file within a small 
fraction of a second. I was back in 
the menu so fast I thought the 
program contained a bug! Throw 
away your big treatises on the many 
kinds of BASIC sorts. Just use @S in 
your programs. Users will be glad to 
know that @PRINT does not leave 
256-byte gaps on the wafer, and 
hence, makes much more efficient 
use of wafer capacity. Last, but by 
no means least, they verify the file 
and warn you if it was not 
successfully recorded. 

Buy FMS 2 and you get super- 
power to use in your own programs. 
Don't, however, plan to market your 
own software using them. The 
author has not, in this release, 
placed his powerful code in the 
public domain. 

Another reason for the hefty price 
tag is that the author has put 
remark statements in the BASIC 
code of the main program so that 
you can now see where each 
command is executed. This has two 
advantages. First, FMS 2 is much 
easier to customize, which is 
customary in all big ticket 
applications programs. Second, you 
can increase your programming 
skills by studying the many elegant 
touches with which FMS abounds. 

Reason for two I/O routines is 



that there are two FMS programs. 
The "regular" one takes strings and 
numeric fields. The other takes only 
strings, holding more in the same 
memory size than the first and 
processing them even more 
efficiently. 

The power of FMS 2 becomes 
apparent when you decide what you 
want to do. As just one example, a 
file by name and address could 
contain birthdates, phone numbers 
and possibly some confidential 
information such as credit rating, 
ages of family members, etc. You 
can make mailing labels from this 
file by suppressing, or HIDEing 
what you don't want to appear and 
then formatting the output as a 
mailing label complete with the 
necessary spaces between records to 
fit the size of your continuous feed 
labels. You could code a music 
cassette library with just one alpha 
character to represent the quality of 
each recording and then select just 
those with an E for excellent (or P 
for poor) and make a special listing 
of these. Your file of colored slide 
descriptions could be similarly 
coded to indicate S (snow scenes), F 
(family pictures) or whatever. Now 
you can easily SELECT the slide 
numbers to pull actual slides from 
the file box which fall in the desired 
category. Get the point? 

In addition to the two I/O routines 
and the two versions of FMS 2, there 
are two more programs. One is a 
BASIC routine which will convert 
an all-string file written with either 
the old or the new version of FMS in 
the string-and-numeric pattern for 
use in the string-only mode. Yes, you 
heard right. FMS 2 will read files 
written by the original FMS. You 
don't have to reenter them to get the 
increased power and capacity. The 
last program will analyze the 
format of an FMS file in terms of the 
FMS format scheme. With this 
information, you can then write 
your own applications programs 
which access and process FMS data 
files. 

The bottom line is simply that 
FMS 2 is a total system and not a 
toy. The author worked until 
recently as a programmer for a blue 
chip mainframe corporation — and 
it shows in FMS 2. M 



FOR TRS-80 MODEL I OR III 
IBM PERSONAL COMPUTER 

MORE SPEED 

10-20 times (aster then interpreted BASIC 
MORE ROOM 

Very compact compiled code plus VIRTUAL MEMORY 
makes your RAM act larger. Variable number of block 
buffers. 31-char.-unique wordnames use only 4 bytes in 
header! 

MORE INSTRUCTIONS 

Add YOUR commands to its 79-STANDARD-plus Instruc- 
tion set! 

Far more complete than most Forths: single & double 
precision, arrays, string-handling, clock, graphics, (IBM 
low-res. gives 16-color or 200-tint display). 

MORE EASE 

Excellent full-screen Editor, structured & modular 

programming 

Word search utility 

THE NOTEPAD letter writer 

Optimized for your TRS-80 or IBM with keyboard repeats, 

upper/lower case display driver, full ASCII 

MORE POWER 

Forth operating system 

Concurrent Interpreter AND compiler 

VIRTUAL I/O for video and printer, disk and tape 

(10-Megabyte hard disk available) 

Full 8080 or 8088 Assembler aboard 

(Z80 Assembler also available for TRS-80) 

Intermix 35- to 80-track disk drives 

IBM can read, write and run M.3 Disks 

M.3 disks can read, write and run M.1 disks 
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THE PROFESSIONAL FORTH SYSTEM 
FOR TRS-80 & IBM PC 

(Thousands of systems in use) 

MMSFORTH Disk System (requires 1 disk drive, 32K RAM) 

V2.0 Radio Shack TRS-80 Model I or III $129.95* 

V2.1 IBM Personal Computer, (80-col. screen) .. . $249.95* 



AND MMS GIVES IT PROFESSIONAL SUPPORT 

Source code provided 

MMSFORTH Newsletter 

Many demo programs aboard 

MMSFORTH User Groups 

Inexpensive upgrades to latest version 

Programming staff can provide advice, modifications and 

custom programs, to fit YOUR needs. 

MMSFORTH UTILITIES DISKETTE: includes FLOATING POINT 
MATH (BASIC ROM routines plus Complex numbers, Rectan- 
gular-Polar coordinate conversions, Degrees mode, more). 
(TRS-80) a full Forth-style Z80 ASSEMBLER) plus a powerful 
CROSS-REFERENCER to list Forth words by block and line; 
plus all on one diskette (requires MMSFORTH V2.0, 1 drive & 
32K RAM) " $39.95* 

FORTHCOM: communications package provides RS-232 
driver, dumb terminal mode, transfer of FORTH blocks, and 
host mode to operate a remote TRS-80 (requires MMSFORTH 
V2.0, 1 drive & 32K RAM) $39.95* 

THE DATAHANDLER: a very sophisticated database manage- 
ment system operable by non-programmers (requires 
MMSFORTH V2.0, 1 drive & 32K RAM) $59.95* 

FORTHWRITE: fast, powerful Word Processor w/easy 
keystrokes, Help screens, manual & demo files Full propor- 
tional w/tabs, outdenting. Include other blocks, documents & 
keyboard inputs— ideal for form letters (requires MMSFORTH 
V2.0, 2 drives & 48K RAM) $175.00' 

MMSFORTH GAMES DISKETTE: real-time graphics & board 
games w/source code. Includes BREAKFORTH, CRASH- 
FORTH, CRYPTOQUOTE, FREEWAY (TRS-80), OTHELLO & 
TICTACFORTH (requires MMSFORTH V2.0, 1 drive & 32K RAM) 
$39.95' 

Other MMSFORTH products under development 

FORTH BOOKS AVAILABLE 

MMSFORTH USERS MANUAL - w/o Appendices $17.50* 

STARTING FORTH • best! $15.95* 

THREADED INTERPRETIVE LANGUAGES - advanced, analysis 
of FORTH interals $18.95* 

PROGRAM DESIGN & CONSTRUCTION • intro. to structured 
programming, good for Forth $13.95* 

FORTH -79 STANDARD MANUAL - official reference to 
79-STANDARD word set, etc $13.95* 

FORTH SPECIAL ISSUE, BYTE Magazine (Aug. 1980) - A collec- 
tor's item for Forth users and beginners $4.00* 

* ■ ORDERING INFORMATION: Software prices include 
manuals and require signing of a single computer license for 
one-person support. Describe your Hardware. Add $2.00 S/H 
plus $3.00 per MMSFORTH and $1.00 per additional book; 
Mass. orders add 5% tax. Foreign orders add 20%. UPS COD, 
VISA & M/C accepted; no unpaid purchase orders, please. 

Send SAS£ lor free MMSFORTH information 
Good dealers sought 



Get MMSFORTH products from your 
computer dealer or 



MILLER MICROCOMPUTER 
SERVICES (B8) 

61 Lake Shore Road, Natick, MA 01760 
(617)653-6136 
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Alphanumerics, variables and 
assignment statements 



Model I/II/III 

Think of a computer as a 
combination of a high-powered 
calculator and a smart typewriter. It 
processes information — numbers 
like a calculator, letters and words 
like a typewriter. These two kinds of 
information have the formal titles 
numeric and alphanumeric. 

Most of us easily understand the 
idea of numeric information — 
numbers. We routinely add, 
subtract, multiply, divide, compute 
square roots and do a lot of other 
number manipulation with 
calculators. 

Alphanumeric information is like 
typewriter characters — letters and 
numbers. In computer jargon we 
call this "STRING" information - 
and we spell STRING with a $. 
String information is designated by 
quotation marks, e.g., "GEORGE", 
"2", "TRS-80". When the computer 
sees the quotation marks it knows 
it's dealing with strings. 

Some novice programmers don't 
understand why an alphanumeric 
"2" can't be mathmatically 
manipulated like a numeric "2." 
Remember typewriter characters — 
a "2" on a typewriter is just another 
alphanumeric character, like "L" or 
"&" or "H" or "?." A typewriter 
doesn't recognize the character "2" 
as a number, nor does a computer 
when it's processing alphanumeric 
information. 

Variables 

The computer stores numeric and 
alphanumeric information in 
memory cells called variables. 
Numeric variables hold numeric 
information and string variables 
contain alphanumeric information. 
- Visualize variables as little boxes in 
the computer's memory. When 
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you're trying to figure why a 
program is being ornery, draw some 
little variable boxes to show what 
each variable contains. 

Names one or two characters long 
identify variables. The first 
character must be a letter — A to Z. 
The optional second character may 
be either a letter or a number. We 
can choose from hundreds of names 
- from A to Z, from AO to A9 to Z9, 
and from AA to AZ to ZZ. Siegfried, 
my computer, calculated that there 
are 962 different possible names for 
either kind of variable (I'm 
assuming that he understood the 
program I wrote for him). 

Both numeric and string 
variables use the same set of names 
but string variables are differenti- 
ated by the "$" string sign following 
the variable name. String variable 
Al$ is called "A one string." When 
my son was learning about string 
variables he continually referred to 
"X dollar sign" — and I continually 
corrected him to pronounce it 
"XString." I knew I had won when 
he asked: "Dad, may I borrow five 
strings? 

Novices sometimes get confused 
by similarly named variables, such 
as A, Al, AA, A$ and Al$. Each of 
these is a different variable, related 
in name only, and each contains 
information different from the 
other. 

Assignment 

An assignment statement assigns 
the value of the expression on the 
right of the equal sign to the 
variable named on the left. The most 
common is the LET statement. Its 
form is: 

LET variable name = expression 



The expression can be a constant, 
a variable, or a formula. A few 
examples: 



LET A = 12 
LET B = A 

LET A6 = L*W 
LET G$ = "Stripper" 
LET P2$ = NA$ 



(constant) 
(variable) 
(formula) 
(constant) 
(variable) 



LET Cl$ = R$ + "Joe" (formula) 

When the expression is a formula 
the LET statement calculates its 
value before assigning it to the 
variable. 

The equal sign in an assignment 
statement looks like the same equal 
sign we remember from Algebra I — 
but it isn't. An assignment 
statement is not an algebraic 
equation. In computer language not 
all equal signs are equal (yes, Mr. 
Orwell, some are more equal than 
others). 1 

In computer pseudocode a left- 
pointing arrow shows assignment 
(LET A - 12). This reminds us that 
an assignment statement doesn't 
use a real equal sign — one which 
shows equality — instead it assigns 
the value on the right to the variable 
on the left with an assignment sign. 

The verb "LET" is optional in a 
LET statement — omitting it won't 
affect the assignment. The 
computer recognizes that the 
statement "J4 = K + BB" is the 
same as "LET J4 = K + BB." 
Beginners, however, should avoid 
possible confusion by using LET 
until they are comfortable with both 
uses of the equal sign. (LET will 
become mandatory if the proposed 
national standards for BASIC are 
adopted.) 2 

Replacement 

Novice programmers often 
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encounter another algebraic 
enigma when they assign a new 
value to an old variable. When Ifirst 
saw the algebraic aberation K = K + 
1, 1 instinctively knew it was wrong. 
The stern apparition of Miss 
Simmons, my old Junior High 
algebra teacher, appeared in my 
head and said, "Once you've given it 
a value, a variable is defined and 
you can't change it." 

Not so, Miss Simmons. We're 
discussing computers, not algebra 
— assignment statements, not 
equations. When we assign a value 
to a variable, the new value replaces 
the old. Use the little boxes 
mentioned earlier to illustrate this. 





X 


is Now 


10 LET X=2 







20 LET X=X+2 




Q 


30 LET X=X*X 




El 


40 LET X=X-6 




R 



When we assign the value of one 
variable to another, e.g., LET B=A, 
What happens to the contents of the 
variable on the right? They remain 
unchanged — copied, not 
transferred, into the variable on the 
left. 

Programming Tips 

1. Don't use a variable for more 
than one purpose in a program if 
you're a beginner. You could easily 
misuse it and ambush yourself with 
mystifying errors. 

Experienced programmers, 
however, often recycle variables to 
save memory. This requires a 
systematic approach, such as using 
the variables A and A$, Al and Al$ 
for temporary storage; and X, Y and 
Z for counters or index variables (as 
in FOR...NEXT loops). 

2. Although the computer 
recognizes only the first two 
characters of a variable's name, it 
doesn't complain about longer ones. 
You can, therefore, create some very 
descriptive labels, such as NAME$, 
ADDRESS$, SALES and COST. 
But it's not a good idea. Two 
reasons: 

a. You could accidentally use the 
same variable for different 



purposes. Both FIRSTNAME$, and 
FILE$, for example, use the variable 
FI$. 

b. A reserved word 3 can sneak 
into a variable name and cause a 
syntax error when the program 
executes. 

Examples: ORder, subTOtal, 
TANdy. 

3. List your variables in REM 
statements at the beginning of your 
program. This clarifies the program 
and helps avoid unintentional 
multiple-use variables. 

Include REM statements showing 
the maximum and minimum limits 
of numeric variables and the 
maximum length of string 
variables. Especially if they're to be 
printed in columns or stored in fixed 
length fields. 

4. If you use a constant more than 
once, assign it to a variable. Then 
you can plug the variable quickly 
and easily into the program without 
retyping — and maybe mistyping — 
the constant. A few examples: 

LET PI = 3.14159 

LET Ll$ = STRING$ (40, "=") : 
REM A 40 CHARACTER DOUBLE 
LINE 

LET Ml$ = "MESSAGE ONE" 

LET Pl$ = "###.##" : REM PRINT 
USING FORMAT 

BASIC has three other 
assignment statements: INPUT, 
LINEINPUT and READ. They 
have uses different from LET but 
they perform the same function — 
assigning values to variables. 

A thorough understanding of 
numeric and alphanumeric 
information, the variables that 
store it, and the assignment 
statements that put it into the 
variables will make your 
programming quicker, easier, and 
less frustrating. That's BASIC. ■ 

1 As we learn more about BASIC we will 
find another use for the equal sign — as a 
relational operator testing the truth of 
an equation. This is generally found in 
IF...THEN statements (IF A+B=C+D 
THEN...). 

2 Thomas E. Kurtz, "On the Way to a 
Standard BASIC," BYTE, June 1982. 

3 See your manual for a list of reserved 
words. 



MAILING 
LIST SYSTEM 

For TRS-80* 

['Tandy trademark) ^LflC) QC 

Model I & ill ^)0«7«^7<J 



• Simply to use. ..even for the novice. 

• Maintain virtually an infinite num- 
ber of disks all in continuous alph. 
or zip order.. .essential for large lists. 

• Sort 2260 entries (2 full 40 track 
double density disks) in only 32K or 
an incredible 4640 entries (2 full 80 
track disks) in only 48K! 

• Super fast sort by alph. or zip order 
(8 sec. for 1000 entries).. .both orders 
can exist simultaneously on disk. 

• High speed recovery of entries from 
disk... pulls in over 11 per sec! 

® Transfer old files to our system. 

® Less than 5 digit zips have leading 
0's appended. 

® Supports 9 digit zips, Canadian zips. 

® Zip order is "sub-alphabetized". 

® System adjusts to any DOS. 

® Backup data disks are easily up- 
dated as entries are created, edited, 
or sorted. ..extremely useful!! 

• Optional reversal of name about 
comma. 

• Permits telephone numbers, etc. 

• Prints on envelopes or on labels, 1, 
2, 3 or 4 across. 

• Test label/envelope printing lets 
you make adjustments with ease. 

• Master printout of your list in sever- 
al formats. 

• Selective printing by specific zips 
or by zip range. 

• Editing is simple and fast. ..auto- 
matic search. Batch transfer of 
edited entries to backup disks. 

® Provides for duplicate labels. 

® Deleted entries have "holes" on 

disk filled automatically. 
® Automatic "repeat" feature. 
® Load and "scroll" through entries. 

• Optional "ATTN:" line. 

• Plenty of user defined fields with 
various options for simultaneously 
purging and selecting the printout. 

• All 0's in address labels are re- 
place by easier to read 0's. 

• Continuous display of numbers of 
labels/envelopes printed. 

•, Each disk entry automatically "re- 
members" how many mailings have 
been made. 

• Primarily written in BASIC for easy 
modification. ..embedded machine 
code for those speed sensitive areas. 

• Hardware requirements: 32K, 
printer, and 1 or 2 drives. 
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410-E EastRoca 
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RENUM IV your III 

Patch the Model I renumber program 



Model III 



Jerry W. O'Dell, Ph.D., Ypsilanti, MI 



A renumbering program is an indispensable tool for 
the BASIC programmer. However, I was astounded to 
discover that there is apparently none available for the 
Model III, certainly none from local sources. There are 
several versions for the Model I, from various 
companies, but not for the Model III. Since I really 
needed the program, I decided to attempt to change the 
old Radio Shack program, RENUM (Catalog number 
26-2004) for the newer machine. 

Disassembly of RENUM shows that the change 
should be fairly easy. The starting address for a BASIC 
language program in the Model I is 42E9H, and its 
43E9H in the Model IIL Therefore, if one changes all 
references to this location (7CA6H, 7D00H, 7D3EH, 
7DB9H and 7EACH) from 42H to 43H, the job should be 
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done. However, it doesn't work. The problem seems to be 
that the data stored at the highest pointer location, 
7FD4H, is destroyed, apparently by the stack. 
Consequently, one must change the references to 
7FD4H to some other value. To be on the safe side, I 
moved this to just under the beginning location of 
RENUM, at 7C4AH. The locations that must be 
changed are 7C6EH, 7CC4H, 7DF7H, 7E0CH, 7E19H, 
7E31H, 7E38H and 7E41H. Making this change fixes 
the problem. RENUM now seems to work perfectly. I've 
tried it on all sorts of programs, and it seems to function 
without a hitch. 

If you have a machine language monitor, like 
DEBUG or TASMON, you can make the changes 
directly, and save the repaired program on tape. If you 
don't have such a monitor, the little program in Listing 
1 will do the job. Load the Model 1 RENUM into your 
16K machine according to the instructions packed with 
it. However, when the computer comes on, set the 
MEMORY SIZE? to 31817, rather than 31819, to allow 
for the two extra bytes needed. Now run the program in 
Listing 1. It will make the necessary changes in 
RENUM automatically. RENUM may be left in the 
computer, and may be recalled at any time by typing 
SYSTEM (enter), and then /31820 (enter). 
Unfortunately, with this method, RfcNUM must be 
repaired every time the computer is powered up. But it's 
worth it to have the ability to renumber programs! 



Program Listing 
for RENUM 



-J(*te-mih 



10 POKE 
62,67: 
20 POKE 
55,124 
30 POKE 
40 POKE 
268,74: 
50 POKE 

305,74: 
60 POKE 
321,74: 



31910, 67:POKE 
32185,67 

32428, 67:POKE 

31940, 74: POKE 
32247, 74: POKE 

POKE 32269,124 
3228 1,74: POKE 

POKE 32306,124 

32312, 74:POKE 

POKE 32322,124 



32000,67: POKE 320 
31854,74: POKE 318 

31941,124 

32248, 124:POKE 32 

32282, 124: POKE 32 
32313, 124:POKE 32 
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to Buy or 
uter Equip 
d Software 




START HERE 
WITH... 




Illlillillllt 



Begin your search in the 
index of Computer Shop- 
per's bargain filled pages. 
Locate the category and 
page number of jtems 
that interest you from 
TRS-80 and Apple to soft- 
ware and peripherals. 




iHiiiimit 



Start or add to your com- 
puter system by finding 
money saving bargains in 
each month's issue from 
individuals who no longer 
need their personal equip- 
ment. 




^Illllllllllllllllllllllllllllllllllllllllllllllllillllllllll^ 



You've got your computer 
hardware, but what about 
the software? Use a Com- 
puter Shopper ad to find 
what you need. Someone 
advertising in Computer 
Shopper probably has what 
you want. 




inning 



If you need help with any 
computer related problem 
whether it's an interface 
problem or advice on the 
right peripheral for a home- 
brew system, use the free 
HELP column especially 
designed for that purpose. 



W£A 
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As you outgrow your 
system or want to trade up 
(most dealers won't take 
trade-ins), use Computer 
Shopper ads to sell your 
items to 20,000 readers na- 
tionwide for the low cost of 
12 cents per word. 




Computer Shopper is THE nationwide magazine for buy- 
ing, selling and trading Micro and Mini-computer equip- 
ment and software. Each issue has over 60 pages full of 
bargains of new and used equipment. 

You can save hundreds of dollars by getting the equip- 
ment you need from the hundreds of classified ads in- 
dividuals place in Computer Shopper every month. 

Now is the time for you to join over 20,000 other com- 
puter users who save time and money with a subscription 
to Computer Shopper. 

Subscribe today and get your first issue and a classified 
ad absolutely FREE. Type or print your ad on a plain piece 
of paper and send it along with your subscription. 

Just fill in the coupon or MasterCard or VISA holders 
can phone TOLL FREE 1-800-327-9920 and start making 
your computer dollar go further today. 



iiimii 



aanaanaai 

■ Cut out and mail to: 



iinianii 



COMPUTER SHOPPER 

P.O. Box F115 • Titusville, FL 32780 

Yes, I'll try Computer Shopper, I understand that if I'm 
not satisfied with my first issue I can receive a full re- 
fund and keep the first issue free. 

D 1 year $10.00 ($30.00 in Canada) 

□ I have enclosed my free classified ad. 

D I want to use my free ad later, send me a coupon. 

NAME: : 



ADDRESS: 



CITY: 



laai 



STATE: 



ZIP: 



iiiitiiiiiiiiiiiiiiiaiiitiiiiiiiaaaaiiitiiiii 



(JSCQiTIPUTBR SHDW3R 

P.O. Box F115 • Titusville, FL 32780 
Telephone: 305-269-3211 
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video tips 
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Switching PMODEs for effect 




Color Computer with Extended Color BASIC 



Lynn Davis, Clay, NY 



. ■ 

■"" : T: 

. ■ ?■■■!- 








Here are some programs that point out various tricks 
in using the video on the Color Computer. They are all 
written for 16K Extended BASIC. Two of the programs, 
"Color the Screen/' Listing 1, and "Getting Colored 
Letters," Listing 2, deal with using signal drift from the 
computer to the TV while you are in the PMODE 4, 1 and 
SCREEN 1,1 mode. This setup should, but doesn't 
always, result in a buff/black color configuration. 
However, the resulting blue and orange colors can be 



In Listing 3, 'Two Circles with One Command," the 
computer is tricked when a program goes from PMODE 
4 to PMODE 2 without inserting a SCREEN command. 
Anyone looking at the program would assume it would 
draw three circles, all with a radius of 90. This is not the 
case — the last circle command actually draws two 
circles, each with a radius of 45. It also looks to me that 
both circles are drawn at the same time (although, I 
don't know how to prove it). 



Ed. Note: We had to add line 5 in Listing 3 to make it 
run on the earlier ROM of the Color Computer. The 
addition is compatible with all versions. 

Listing 1 
Color the Screen 

100 REM TRS-80 COLOR COMPUTER 
96 8CMJS. Journal 



110 REM 16K EXTENDED BASIC r 

120 REM 

130 REM 

140 CLS 

150 PRINT"WHAT COLOR SCREEN' DO YOU WANT 



160 PRINT" 1. BLUE" 

170 PRINT" 2. ORANGE" 

180 PRINT: INPUT" TYPE NUMBERS PRESS 

TER>";C 

190 IF C<1 OR C>2 THEN 140 
200 PMODE 4, 1:PCLS: SCREEN 1,1 

210 FOR X=C~1 TO 256 STEP 2 

220 FOR CC=1 TO 2 

230 COLOR CC*3,CC 

240 LINE (X4CC f 0)-(X-K:C, 192), PSET 

250 NEXT CC,X 

260 GOTO 260 



<EN 



Listing 2 
Getting Colored Letters 



110 


REM TRS-80 COLOR COMPUTER 


120 


REM 16K EXTENDED BASIC 


130 


REM 



C.C. tips 



150 CLS 

160 PRINT" WHAT COLOR PRINTING WOULD YOU 

ii 

170 PRINT"LIKE TO SEE?" 
180 PRINT" 1. BLUE" 
190 PRINT" 2. ORANGE" 

200 PRINT: INPUT"TYPE NUMBER & PRESS <EN 
TER>";C 

210 IF C<1 OR C>2 THEN 150 
220 PMODE 4, l-.PCLS: SCREEN 1,1 
230 ON C GOSUB 260,290 
240 GOTO 240 

250 REM DRAWS A BLUE LINE IF HORIZONTAL 
COORDINATE IS AN ODD NUMBER 
260 DRAW"S8;BM87, 100; U7R4F1D1G1NL4F1D2G 
1NL4BR1 BR4 NU7R5 BR4 BU1NU6F1R3E1NU6BF 
1 BR4 U7NR5BD3NR4BD4R5" 
270 RETURN 

280 REM DRAWS AN ORANGE LINE IF HORIZON 
TAL COORDINATE IS AN EVEN NUMBER 
290 DRAW"S8;BM86,100;BR1H1U5E1R3F1D5G1N 
L3BR1 BR4 U7R4F1D1G1NL4F1D3 BR4 U6E1R3F 
1D2NL5D4 BR4 U7BD1E1R3F1D6 BR4 BU1U5E1R 
3F1D16D2NL2D2G1L3H1BF1BR4 BR4 U7NR5BD3N 
R4BD4R5" 
300 RETURN 



tele- 
communications 

Send E-mail, download programs and files, chat, buy 
merchandise, access the Source* and other exciting 
data bases with the MICROCONNECTION, a quality 
direct connect modem for your TRS-80 The 
Autodial/Autoanswer MICROCONNECTION auto- 
matically dials other computers and answers tool The 
busdecodmg MICROCONNECTION eliminates the 
need for the RS-232 board, the expansion interface, 
and the "obsolete" acoustic coupler. Free SMART80 
terminal software for the TRS-80 included 



Bussdecodmg MICROCONNECTION for TRS-c 

with Autodial/Autoanswer 
RS-232 MICROCONNECTION 

with Autodail/Autoanswer 
MICROCONNECTION for TRS-80* Color 



S 20V 00 
S2SV0U 
S I S9 00 
5 I 99 00 
S199 00 



the microperaphefaj corpor at ton 

2643 151st PI. N.E , Redmond, WA 98052 
(206)881-7544 
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Listing 3 
2 Circles with One Command 

5 PCLS:PCLEAR6 

90 REM TRS-30 COLOR COMPUTER 

100 REM 16K EXTEMOEO BASIC 

110 REM 

120 REM ****************************** 

130 REM DRAWS CIRCUS TO SHOW SIZE IN PM 

ODE 2 

140 PMODE 2,l:PCLSiSCREEMl,l 

150 G)9I8 260 

160 REM DRAWS SAME CIRCLE TO SHOW SIZE 

IN PMODE 4 

170 PMODE 4,l:PCLS:SCREEttI,l 

180 GOSUB 260 

190 REM SWITCH '\X) PMODE 2 AMD DRAW THE 

SAME CIRCLE 

200 REM NOTE THE CONTSTRUC PION OE [WO CI 

RCLES WITH ONE COMMAlSIDl 

210 REM THIS ALSO MAKES A FAST SMILING 

FACE 

220 PM0DE 2,1:PCLS 

230 REM THERE IS MO SCREEM COMMANTO HERE 

240 GOSUB 260 

250 GOTO 250 

260 CIRCLE(1 28,96), 90,1 

270 FOR T=l TO 2500:MEXT T 

280 RETURN B 



COLOR COMPUTER SOFTWARE 
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HELP FOR THE 
BASIC PROGRAMMER 



At last the development tools you need 1 All available instantly at power-up 
MERGE COMMAND: Insert programs stored on cassette into your Basic program You 
can even assign new line numbers to the file you read in Create your own tape library 1 
MOVE COMMAND: Lets you renumber any part of your Basic program GOTO s 
GOSUB's etc automatically changed 

AUTOMATIC LINE NUMBERING: You'll love this Never type in another line number 
PLUS 45 common Basic commands available as single key Control characters Or 
change ANY OR ALL keys to your own specifications' Comes with convenient, easy to re- 
move, plastic keyboard overlay All of this in a convenient ROM cartridge that uses almost 
none of your valuable memory CARTRIDGE $34 95 

COLORCOM/E SMART TERMINAL PROGRAM 

We didn't wait for the competition to catch up with us 1 We've added even more features f o 
COLORCOM/E. our superb Smart Terminal program 

• Complete upload & download support « Send all 1 27 ASCII characters 

• On line cassette reads & writes • Word mode eliminates split words 

• Automatic capture of files • Off line AND on line scrolling 
. Pre-enter data before calling • Selectable RS232 parameters 

We've got the best cassette and upload/download support available And you can con- 
veniently print any portion of the received buffer you want NOW ON DISK 1 Reads and 

Wr ." eS "I 65 ,r . 0md ' Sk S . ame . 9rea ' ! ea,UreS P ! US mWe - . DISK OR CARTR,DGE $49 95 

EDITOR ASSEMBLER DEBUGGER $g95 

CCEAD: This 8K Basic Program supports cassette files, has full cursor control, line 
insertion/ deletion, and much more Two pass assembler supports full 6809 instruction 
set & addressing modes, lists to screen or printer Debugger allows memory examine 
/modify, program execution If not delighted return within 2 weeks for a full refund You 
get fully commented Basic source & complete instructions Requires Ext Basic & 16K 
CASSETTE $6 95 

STRIPPER: Three valuable commands (1 ) Delete Remarks: (2) Pack Lines. (3) Delete 
Spaces, Fully automatic, is not fooled by GOTO's GOSUB's. etc Your programs will run 

faster and take up much less mecnory CASSETTE $7 95 

CUSTOM CARTRIDGES: Put YOUR Basic program into a convenient ROM Cartridge 
Runs instantly at power-up. Use for Ad displays, schools, etc. Call or write for info 



Send check, money order, 

or Visa/MC Number; 

Include $1 for postage and 

handling; Visa/MC: Phone 

for fast service 




PO. Box 10234 
Austin. Texas 78766 
(512)837-4665 
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TERM /HOST VER 1.5 (C) 1982 
— - * 34.95 

ENTRY / EXIT TERM/HOST via Interrupt Handler 
t HEX TRANSLATION of RECEIVED & TRANSMITTED DATA 

* TRANSMIT / RECEIVED Data Continually Displayed 
I Adjustable SPLIT SCREEN FULL DUPLEX Operation 
I BASIC May be Used as a ASCII FILE TEXT EDITOR 
« TRANSMIT TEXT fro« BASIC Without LINE NUMBERS 
% BINARY and ASCII FILE Handling Capabilities 
t ASCII ( Transparent BINARY File ) Handling 
t CONTROL CODE SUPPORT fm KBD or XMIT/RCV BUFFER 
I Additional CONVERSION PROSRAMS are NOT REQUIRED 
» DISK or TAPE to the TRANSMIT/RECEIVE BUFFER 
t TRANSMIT / RECEIVE BUFFER to DISK or TAPE 
I DISK to TAPE or TAPE to DISK All File Types 
t AUTOMATIC CLEAN UP of RECEIVED ASCII Files 
t HEX to DECIMAL CONVERSION From Any USER Program 
t UPPER / LOWER CASE DRIVER with KEYBOARD Toggel 

* TEXT SPOOL BUFFER for VIEWING or PRINTIN6 
t TRANSLATE TABLE Overlay AREA SWITCHABLE ON/OFF 
I LINE FEED Suppression on RCV SWITCHABLE on XMIT 
> WAIT for RESPONSE CHR or DELAY After Line TEXT 
» EXIT/RETURN to DOS, BASIC or Other USER Program 
t HOST May Run MACHINE LANBUASE or BASIC Programs 

in the HOST Mode From Any ASCII REMOTE TERMINAL 
t HOST You May DOWN LOAD / UP LOAD all FILE TYPES 

in the HOST From Any REMOTE TERMINAL or SYSTEM 
t HOST MODE, has PASSWORD PROTECTION if desired 

* VERSION runs on MODEL 1 & 3, TAPE or DISK, 48K 

TERM / HOST / BULLENTIN BOARD 

* 39.95 

t Uses TERM/HOST for a DRIVER with an Appendage 
I Series of BASIC Support Programs and DATA Files 
I Support about 200 USERS, IDEAL for LOCAL CLUBS 
t General, Club, and Confidential PASSWORD Prot. 
« EASY, USER ORIENTED, complete UP/DOWN loading 
» Auto Config. for N/7/1, N/8/1, E/7/1, or E/S/l 

SEND CHECK OR MONEY ORDER TO 

Freedou Financial Enterprises of Washington, Inc 
3601 Carriage Dr Raleigh, NC 27612 919-7B7-S082 



Programs for Beginners 

on the TRS-80 

Hayden Book Co., Inc. 

50 Essex Street 

Rochelle park, N J 07662 

1-800-631-0856 

$8.95 

When I first got my TRS-80 Model 
I back in the dark ages (of personal 
computing) in early 1980, I didn't 
know anything about Beginners 
All-purpose Symbolic Instruction 
Code, better known as BASIC. But 
that didn't matter because Radio 
Shack had included the very 
excellent User's Manual for Level I 
by Dr. David A. lien. His manual 
was terrific as a beginners manual, 
and it successfully taught me the 
elementary basics of BASIC. 

However, I soon found myself in 
need of more information on how to 
program in BASIC. 

Unfortunately, back in the early 
1980s, personal computers were 
really just beginning to come into 
their own as a serious new industry 
that could appeal to more than the 
trained computer programmer. 
Consequently, there wasn't much 
published on learning BASIC that 
the beginner could understand. So 
in those days most of us learned 
BASIC from magazine articles, like 
those found in fledgling magazines 
like 80 Microcomputing or 80-U.S. 
Journal. 

Today, things are much different. 
In just two years time (since 1980), 



there are other alternatives for 
learning BASIC after one has 
absorbed Dr. Lien's BASIC Manual. 
One of the better texts that I have 
run across in this regard is 
Programs for Beginners on the TRS- 
80, by Fred Blechman. 

What You Get 

Actually, the title is a little 
misleading, since it implies that it is 
for beginners, when actually some 
rudimentary knowledge of BASIC is 
required. In fact, a better title might 
be "BASIC After Dr. Lien," or 
perhaps "Moving Towards Usable 
BASIC Programs." 

So what, you might ask, do you get 
for your $8.95? Well, to begin with, 
you get 150 pages of paperback 
instruction on writing BASIC 
programs in Level I or Level II for a 
TRS-80 Model I. An addendum sheet 
from the author (for an SASE) will 
provide you with the few changes 
required to make the programs 
given in the book work with the 
Model III. 

But what makes this book so 
useful for the reader is the clear and 
concise way that the author leads 
the reader through each program. 
Each chapter, and there are 21 of 
them, contains a BASIC program 
for both Level I and Level II. Each 
chapter starts out with a "You'll 
Learn" section which describes the 
BASIC commands covered in the 
program in that chapter. Next 
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DISCOUNT TRS" 80 COMPUTERS 

BUY DIRECT 



t/ No Out-of-State Taxes 
^ Large Inventory 
^ 100% TRS-80 Equipment 
is Visa or Mastercard Accepted 
ts Bank Cashier's Check 

^ Bank Money Order 

is Wire Transfers 



1-800-835-9056 

Kansas Residents 

316-624-8610 (Collect) 

Call Today For Your 

Price List! 

JImscot f Inc. 

1023 N. Kansas — Box 607 
Liberal, Ks. 67901 
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comes a "Description" section 
which explains what each program 
does. Then an "Explanation" 
section describes how the program 
works, line-by-line, in real English, 
not presupposing that the reader 
has a Masters degree in Computer 
Science. At the end of each chapter 
is a list of the variables used in the 
program in that chapter and what 
each means. 

The result of this format is a 
tutorial in BASIC for the layman 
that is clear, and that will find 
immediate application to other 
programs that the reader might 
desire to write. 

Some Specifics 

Some of the programming 
techniques covered by the programs 
in the book include screen prompts, 
use of strings, branching, use of 
pseudo-random numbers, ON- 
GOTO, using subroutines, graphics, 
use of READ and DATA 
statements, timing loops, screen 
and printer formatting, rounding 
off numbers, using loops and use of 
arrays. 

The author also provides a test 
program to allow the reader to 
determine if the top or bottom line of 
the video display is cut off by 
incorrect positioning of the display 
raster. If this is the case, and it 
certainly is for a number of TRS-80 
Model Is, the author describes how 
to open up the back of the display 
and readjust the centering tabs on 



the CRT. The author also notes that 
this can be done by adjusting two 
potentiometers in the Model I 
keyboard, but warns that this would 
invalidate the Radio Shack 
warranty. 

At the back of the book are some 
very useful appendices, including 
two cassette loading time charts. 
These tell the reader how long it will 
take to load a cassette tape if you 
know the number of bytes, or how 
many bytes are contained in the 
program if you know the time it 
takes to load the tape. In addition 
there is a design for an 
Audio/Visual Control Box, which 
allows you to hear tape signals 
during record and playback, as well 
as manually control the motor. 
There is also an Appendix of "Slick 
Tricks" which contains some simple 
programs for keyboard debounce, 
and a single line program for 
advancing the tape after recording a 
program, so that you are ready to 
start the next recording run on the 
tape, without having had to 
manually advance the tape. 

For those readers who don't want 
to go to the trouble of typing in and 
debugging the programs, the 
publisher has arranged for a 
cassette tape to be available for 
$10.95 of all of the programs in the 
book. 

So what do you get for $8.95? A lot 
of very clear and useful information 
on how to progress from Dr. lien's 
beginning to a more advanced 



understanding, with some very 
useful examples, of BASIC. Pro- 
grams for Beginners on the TRS-80 
is a good book for the beginning to 
intermediate BASIC programmer. 
Tony Gitt 
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Discount 
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TRS-80* 
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Do you have these bestsellers?! 

Your Cost 

Business Tape /Disk 

Mail List (Precision Proto.) - /71.90 

Form Letter (Precision Proto.) - /31.90 

Maxi Manager & Util (Adv. Int.) -/1 1 9.90 

Newscript 7.0 (Prosoft) - /99.90 

Newscript & Labels (Prosoft) -/1 11.90 

Games 

Defense Command (Big Five) 12.70/15.90 

Stellar Escort (Big Five) 12.70/15.90 

Galaxy Invasion (Big Five) 12.70/1 5.90 

Cosmic Fighter (Big Five) 12.70/15.90 

Robot Attack (Big Five) 12.70/15.90 

Star Fighter (Adv. Int.) 19.90/23.90 

Eliminator (Adv. Int.) 15.90/19.90 

Dunzhin (Med Sys.) 23.90/23.90 

Asylum II (Med Sys.) 15.90/18.30 

Laser Defense (Med Sys.) 11.90/14.30 
Home /Education 

Little Red Riding Hood (Adv. Int.) 11 .90/ - 

Old McDonald's Farm (Adv. Int.) 11.90/ - 

Money Master (Med Sys.) 11.90/14.30 

The Playful Professor (Med Sys.) 11.90/14.30 
Personal Check Mgr. (Adv. Int.) - /19.90 

Check reader service for our catalog. 
RIMES COMPUTER PRODUCTS 

262 Tracey, Dept. 9B 
u 64 Grand Island, N.Y. 14072 
(716)773-2519 

Add $1 .50 for shipping. Add $1 .50 for COD. 

For fastest service send M.O. or cert, check, 

Mastercard/Visa also accepted. 

Allow 2 weeks for personal checks. 

New York Residents add sales tax. 

*TRS-80 is a trademark of Tandy Corp. 



OMNITERM 

What Is OMNITERM? 
OMNITERM is a professional communications package for the TRS-80 that allows 
you to easily communicate and transfer files or programs with almost any other 
computer. We've never found a computer that OMNITERM can't work with. It's a 
complete package because it includes not only the terminal program itself, but also 
conversion utilities, a text editor, special configuration files, serious 
documentation and serious support. 

Why do I need it? 
You need OMNITERM if you need to communicate efficiently with many different 
computers, or if you want to customize your TRS-80 for use with one particular 
computer. You need OMNITERM to SOLVE your communications problems once 
and for all. 

What do I get? 
The OMNITERM package includes the OMNITERM terminal program, four 
conversion utilities, a text editor, and setting files for use with popular computers 
such as CompuServe, the Source, and Dow Jones — just as samples of what you can 

fjindbergh Sy s tems 



The ULTIMATE TRS-80 Terminal Package 



do for the computer you want to work with. The package includes six programs, seven 
data files, and real documentation: a 76-page manual that has been called "the best in 
the industry." And OMNITERM comes with real user support. We can be reached 
via CompuServe, Source, phone, or mail to promptly answer your questions about using 
OMNITERM. 

What do I need to use OMNITERM? 

A Model I or Model III TRS-80, at least 32K of memory, one disk, and the RS-232 
interface, or Microconnection modem. OMNITERM works with all ROMs and DOSes, 
and will work with your special keyboard drivers. 

What will it do? 

OMNITERM allows you to translate any character going to any device: printer, screen, 
disk, keyboard, or communications line, giving you complete control and allowing you to 
redefine the character sets of all devices. It will let you transfer data, and run your 
printer while connected for a record of everything that happens. OMNITERM can 
reformat your screen so that 80, 32, or 40 column lines are easy to read and look neat on 
your TRS-80 screen. It even lets you get on remote computers with just one keystroke! 
The program lets you send special characters, echo characters, count UART errors, 
configure your UART, send True Breaks and use lower case. It accepts VIDEOTEX codes, 
giving you full cursor control. It will ev?n let you review text that has scrolled off 
the screen! Best of all, OMNITERM will save a special file with all your changes so you 



can quickly use OMNITERM for any 
one of many different computers by 
loading the proper file. It's easy to use 
since it's menu driven, and gives you a 
full status display so you can examine 
and change everything. 
"OMNITERM has my vote as the top 
TRS-80 terminal program available today" 
Kilobaud Microcomputing, June 1981, 
pages 16-19. 

OMNITERM is $95 (plus shipping if 
COD) Call for 24 hour shipment. Manual 
alone $15, applied toward complete pack- 
age. Visa, M/C, and COD accepted. MA 
residents add 5% tax. Dealer inquiries 
invited. 

Contact Lindbergh Systems for your 
custom programming needs. We are 
expert at writing software to work with 
YOUR hardware, in assembler, high-level 
language, or Forth. 



41 Fairhill Road, HolfJen, MA 01520 (617) 852-0233 Source TCMia CompuServe: 70310267 TRS-KJ is a - of TandyCorp 
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From Aspen Software 

The Only Complete Document Proofreading System 
For CP/M®, TRS-80® and IBM-PC Word Processors 

Featuring Random House® Dictionary 

• Complete Accuracy-looks up every word; 
does not use less accurate root word 
analysis, plus Random House Dictionary 

• • Full Interactive Correction-standard 

• Instant Access to Dictionary 

• Compact-Random House Dictionary 
supplied in sizes to fit your system 
(50,000 words standard) 

QRAMMATlk" 

Beyond Spelling Checking 

• Detects typos, punctuation and 
capitalization errors, misused words 
and phrases 

• Analyzes Writing Style 

• Suggests Alternative Usages 

= NO ERRORS 

" The programs together (Proofreader and 
Grammatik) offer a dynamic tool for 
comprehensive editing beyond spelling 
corrections." 

-Dona Z. Meilach in Interface Age, 5/82 
"Grammatik is the perfect complement to a 
spelling check program. " 

--Dr. Alan R, Miller in Interface Age, 5/82 
"If you use a word processor and a spelling 
checker, then you should investigate the unique 
capabilities of this program. Grammatik is a 
surprisingly fast and easy to use tool for 
analyzing writing style and punctuation." 

-Bob Louden in InfoWorld, 12/81 
"For the user who is as tight with his dollar as I, 
Proofreader is the program of choice. " 

-Stephen Kimmel in Creative Computing, 3/82 
"Anyone involved with word processing in any 
way, whether writing manuals, letters, 
brochures, newscopy, reports, etc. is encouraged 
to get the excellent program Grammatik." 

-A. A. Wicks in Computronics, 6/82 

Grammatik and Proofreader are compatible with all 
CP/M, MS-DOS (incl. IBM-PC), and TRS-80 word 
processors. Current CP/M formats: standard 8", 
Northstar, Omikron, Osborne, Apple Please call/or 
write for details of minimum system sizes and availability 
of additional disk and operating system formats 
Shipping costs included. Please specify your system 
configuration when ordering Dealers inquiries 
invited. 



Proofreader Grammatik 
CP/M, MS-DOS $129.00 $150.00 

TRS-80 Model II n/a $99.00 

TRS-80 Mod l/lll $89.00 $59.00 



Both 
$250.00 



$139.00 



Random House is a registered trademark of Random 
House, Inc. Other registered trademarks: CP/M: Digital 
Research; TRS-80: Tandy Corp.; MS-DOS: Microsoft; 
IBM: IBM; Proofreader, Grammatik: Aspen Software Co. 



Reviews 



TRS-80 Graphics 

For The 

Model I and Model III 

Byte Books/McGraw-Hill 

Publishers 

70 Main Street 

Peterborough, NH 03458 

$12.95 

I'm sick and tired of hearing from 

Bob, my Apple-owning friend, about 

the wonders of hi-res graphics. I, for 

one, think the TRS-80 computers 

provide very nice graphics. Sure we 

don't have control over every single 

dot, but for the money I don't think 

you'll find better micros anywhere. 

And I won't even bother going into 

the features my new Model III has 

over the Apple. 

Still, it takes a bit of knowledge to 
get the most out of your computer's 
graphics. Nevertheless, once you get 
the hand of programming TRS-80 
graphics, you'll be surprised at the 
images you can get on your display. 
After all, there isn't an arcade game 
around that hasn't yet found its 
TRS-80 equivalent. Anyone who 
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Aspem Software Coj. 

P.O. Box 339-E Tijeras, NM 87059 
(505) 281-1634 



mRinDoc 

Main File Index 

MA1NDEX is an easy to use, 
yet thorough program that 
will aid you in the indexing 
of your files on disk. Can't 
find that program you wrote 
last month? Put your com- 
puter to work! Find any file 
In seconds. 

• A main index of all your disks, giv- 
ing you disk name, free grans, dates 
updated, number of tracks, and disk 
descriptions. 

• Alphabetizes a list of your files, des- 
criptions and their disk location 

• Search for files by name, category, 
or descriptions, 

• Print disk labels with disk name and 
filenames. 

• Runs on bothTRS-80 Model I and III, 

• Uses the advanced file capabilities 
of Apparat's NEWDOS/80 

• Runs with NEWDOS/80 Ver. 2 

• Includes 14 page easy-tounderstand 
documentation. 

• Labels included to get you started 
organizing your disks and files 

Requires 48K, 1 disk drive, and 
NEWDOS/80. On cassette for easy 
transfer to disk $34.95 

Add $1 50 per order lor shipping and handling 
(California residents add 6% sales lax ) 




OEPT EU, PO BOX 581.NOVATO, CA94948 



knocks these machines' graphics 
just hasn't seen them work under 
the programming of a master. 

TRS-80 Graphics: For the Model I 
and HI is an excellent introductory 
text to the field. Written in a breezy 
and generally conversational tone, 
this book, by authors David A. Kater 
and Susan J. Thomas, belongs on 
every TRS-80 owner's bookshelf. It's 
certainly the most fun computer 
book I've read in months. 

Easy to use and full of practical 
and imaginative applications, this 
informative guide provides a full 
treatment on the uses of graphics in 
games, education, business, 
mathematics, statistics, animation 
and art. Comprehensive in scope, it 
takes a thorough look at graphics 
and elementary animation that can 
be created by using the TRS-80's 
SET, RESET, PRINT, PEEK, 
POKE and OUT features. The book 
even manages to toss in some basic 
machine language programming, 
sure to satisfy the requirements of 
the hardy souls interested in that 
field. 

TRS-80 Graphics is a great way to 
learn about your computer by doing 
things that also happen to be a lot of 
fun. Now please excuse me as I 
animate myself away from this 
review and back to my games. 

John Edwards 



The BASIC Handbook 
2nd Edition 
by David Lien 
Compusoft Publishing 
1050-E Pioneer Way 
El Cajon, CA 92020 
(800) 854-6505 
$19.95 
Several years ago, when the TRS- 
80 Model I was first introduced, the 
reference manual that was delivered 
was an easy to read, very simple 
introduction to computer program- 
ming. Professional programmers 
may have felt that it didn't give 
them the information they wanted 
quick enough, but most everyone 
else who used it just loved it. 

The manual has become a classic 
and has spawned a number of other 
books by the same author all with 
the emphasis on simplicity and 
learning. That author was David 
Lien. To the average TRS-80 owner, 
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David Lien's name has become 
familiar. The BASIC handbook, 2nd 
Edition, will make it even more so. 

The BASIC handbook is an 
encyclopedia of the BASIC 
language. It gives possible 
commands in alphabetical order 
with one or more pages devoted to 
expanding on what that command 
means. 

A typical entry (i.e., POKE) in- 
cludes a discussion of the command, 
a test program to see how it works, 
information about sample runs, and 
information about variations in 
usage between computers. There are 
cross references to other commands. 

The book is not solely devoted to 
the TRS-80. It covers BASIC for a 
large number of computers such as 
the Apple, Atari, IBM, DEC, 
Hewlitt-Packard, Pet, Northstar 
and others. Far from clouding over 
what each command means, this 
actually makes the handbook a 
more useful tool. 
Have you ever wanted to make a 



program written for the Apple work 
on your TRS-80? Well this is the 
book to help you do it. Many of the 
commands include a section on 
what to clo if your computer doesn't 
have the particular command. For 
example, MAT INV (matrix inverse) 
includes a complete subroutine to do 
the function if the command isn't 
available (it's not on the TRS-80). 
The book even has a short section at 
the beginning which deals with how 
to convert programs. If you're new 
to this kind of activity, read it 
carefully. 

The only thing I think he missed 
is that not enough alternatives are 
given for commands that are not 
implemented. For example, 
INPUT1 is used to prevent the 
computer from going to the next line 
after an input statement. That's a 
handy command but the book 
doesn't tell you how to do it. 

Overall the book is valuable for 
general reference, even if you never 
look at a program from another 



computer. It's essential if you're 
trying to convert programs. 
Personally, I like it! 

T.R. Dettmann 

Defense Command 

Model I/III 

Big Five Software 

P.O. Box 9078-185 

Van Nuys, CA 91409 

(213) 782-6861 

$15.95 cassette 

$19.95 disk 

You lie somewhere between Earth 

and the Kromorfkrom Galaxy. 

Below you are ten Krontium fuel 

cells, a very valuable commodity. 

Until such time as a star cruiser 

from Earth picks them up, you must 

defend the fuel cells from the 

Kromorfkrom empire. Not bloody 

likely. 

Welcome to Defense Command, 
the latest sensation from Big Five 
Software. As the game begins, the 
Kromorfkrom Transporter vessel 
(which looks like an overgrown 



PRIZE WINNING CHESS 

— The Finest Available — 

See 80 U.S. Journal, June "82 

SFINKS 3.0 Prize winner in Paris, plays 
ruthless chess! Problem set-up, infinite levels 
of play, 32 book openings, audio alert, printer 
output, thinks even while you're thinking! 

32K Tape or Disk Only $39.95 

SFINKS CHESS TUTOR step-by-step 

programmed learning for the newcomer, in- 
cludes 3-level chess game, problem set-up, 
printer output, audio alert, and book 
openings. 
32K Disk Only Only $19.95 

SFINKS 1.81 Plays prize-winning chess, 
pre-chess and transcendental chess, nine 
levels, problem set-up, audio alert, move sug- 
gestion and takeback. 

32K Tape or Disk Only $24.95 

Please specify tape or disk and 

Model I or III. Include $2.00 

shipping and handling. 

William Fink (904) 377-4847 

1 105 North Main, Suite 24 -B 

Gainesville, FL 32601 
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Gosub International, Inc. 

SOFTWARE SOFTWARE 

STRATEGY SIMULATIONS FOR THE TRS-80 
& COLOR COMPUTER 



MERCENARY FORCE 

Command a mercenary army. 
Decide the number of men, 
type of weapons, armor, air 
support, medical aid and 
transports Battle the enemy 
in jungles, underwater, on 
moons and in space 
(1-4 players) $16.95 



SPACE MERCHANT 

Build an Empire in the stars 
Choose your cargo, means of 
shipping, and security Risk 
pirates, ion storms, engine 
failure and other hazards 
while you try to become a 
Space Merchant. 
(1-6 players) $9.95 



WARRIOR — Head to head combat in a game where you and your 
opponent are the rulers of warring city-states, each trying to destroy 
the other. You decide how many of your population will be warriors, 
farmers, factory workers and scholars. $9.95 

YAHTZEE! $10.95 

GOSUB'S MX80/70 Friction Feed Kit $49.95 ppd 

• Use Single Sheet Paper Use Inexpensive Roll Paper • 

• Use Your Own Letterhead Does Not Affect Pin-feed Use • 

THE PRINTER STAND $29.95 

Kansas residents add 3% sales tax 

All prices subject to change without notice 

FREE CATALOG UPON REQUEST 

(TRS-80 is a trademark of Tandy Corp.) 

Dealer Inquiries Invited 
SEND CHECK OR MONEY ORDER 



Gosub Int'l. Inc. 

501 E. Pawnee, Suite 430 

Wichita, KS 6721 1 

(316) 265-9992 



Gosub of Framingham 

P.O. Box 2566 

Framingham, MA 01701 

(add 5% sales tax) 
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The EPSON MX80 

NOW WITH H! RES. GRAFTRAX 

INCLUDED 

a fully loaded printer at a bare bones 
price, the world's first disposable print 
head is rated at 50 to 100 million charac- 
ters. Few printers can compare with the 
MX80 at ANY price and NONE in this 
price range. 

NOW your choice of graphics INCLUDED 
in the price.-COMPLETE-$455, 
CABLE $30 

Yes- We also have the MX80FT and the 
MX100— Call for best price. 




<</nc^ 



st 



CALL FOR COD 

(615)747-5950 

P.O. BOX 23101 

NASHVILLE, TN. 

37202 
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08 

Lawyer's 
Microcomputer' 



A Newsletter for Lawyers 
Using the TRS-80* 



• Articles for Lawyers 

• Law Office Applications 

• Lawyer Information 
Exchange 

• Software Reviews 

• Hardware Reviews 

• Advertisements Directed 
to Lawyer Users 

• Technical Tips 

• Letters and Suggestions 

• And Much More 

A New Monthly Newsletter 
For Lawyers 

Send $28 For A 
One Year Subscription 

The Lawyer's Microcomputer™ 

P.O. Box 1046B 

Lexington, SC 29072 

*TM Tandy Corp # 69 
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tarantula) will release ten aliens, 
each carrying a precious fuel cell. As 
they drop to the bottom of the screen 
to release the fuel cells, a Flagship 
drops you off. Then, the aliens will 
return to the Transporter vessel. 

After the Transporter vessel 
vanishes, the game begins. The 
aliens come from the top of the 
screen and descend. If you do not 
shoot them before they reach the 
bottom, they will grab a fuel 
canister and go back up. If you shoot 
them now, they will die and the 
canister will fall. You must catch it 
or it will explode. If, for some reason, 
you were not able to shoot the 
ascending alien, he and the canister 
will be gone forever. 

Along with the typical crew of 
aliens, there are two which should 
be feared more than any other, the 
Slicer and the Flagship. The 
Flagship, fortunately, has no laser. 
If you hit him, he will release a 
random number of aliens, among 
which may be the evil Slicer. The 
Slicer generally makes his 
appearance when you have only one 
or two fuel cells left. Its sole purpose 
in life is to destroy one of your fuel 
cells. If he makes it down to the 
bottom of the screen, he will almost 
certainly accomplish this goal. 

If Defense Command were being 
judged only by its merits as an 
arcade game, it could only be termed 
excellent. However, it is being 
judged as a Big Five game, and as 
this it just misses. My major 



SECUR-IT 



Stringy File 
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Secur-It Stringy File storage containers 
offer safe, no-spill portability and secure, 
orderly storage for your wafers. High-impact 
plastic construction. 20 wafer capacity. 
Black only. $14.95 ea. 

Model I/HI Software 

• Label Maker, $12.95 e Page Maker 

(disk only), $19.95 • Home Inventory, $39.95 

* Document Maker, $39.95 • 

® Send For Free Catalog 

• For Fastest Service Send Money Order Or 

Certified Check • Add $2.00 Shipping 

Charge Per Order « Calif. Residents 

Add 6'A% Sales Tax • All Merchandise 

Shipped From Stock • 



REM Industries, Inc. 

9420 "B" Lurllhe Ave., Chatswarth, Co.. 91311 

(213) 341-3719 
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complaint of the game is that it is 
slow moving. When the game 
begins, the aliens come down at the 
rate of one every few seconds. This is 
more than ample time to 
exterminate the alien, so the game is 
fairly monotonous until your score 
reaches about 20000. Then, the 
game is well paced. 

If not for this one fault, the game 
would probably come close to Robot 
Attack in quality. Of course, as in 
Robot Attack, this game has voice 
effects. Due to memory limitations, 
the cassette version has very little 
voice. On the disk edition, when you 
shoot the Transporter vessel, a voice 
booms out "Prepare to die, human." 
And when you lose a ship, the 
computer says in a voice that 
approaches sarcasm, "You're 
dead!" 

If you are seeking to buy a game 
that will top Robot Attack, then 
Defense Command is not it. 
However, if you are just out to have 
some good, clean fun, then pick up a 
copy of Defense Command and 
enjoy! 

Matt Friedenberg 



EDIT 

Model III tape or disk 

DCS Software 

86 Mansel Drive 

Landing, NJ 07850 

(201) 398-8281 
$19.95 tape or disk 
Imagine it's toward midnight and 
you're just putting the final touches 
on the program of the century that's 
going to make millions, and much to 
your dismay you discover a hideous 
mistake. You've used Tandy as a 
variable and since AND is a BASIC 
keyword it's SYNTAX ERROR time 
in the big city. Wouldn't it be 
wonderful to have your computer 
find all the mistakes and be able to 
correct them on the screen instead of 
line by line? Now you can, with this 
new inexpensive utility. 

To edit a program using the 
standard line editor supplied in 
ROM on all TRS-80s is sometimes a 
difficult task. An entire set of sub- 
commands must be mastered and 
each line of the program must be 
changed one at a time. However, a 
full-screen editor, found standard on 
some computer systems, allows you 
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to make changes within the listing 
on the screen using cursor controls. 
This allows changes to multiple 
lines to be made quickly and without 
the need for special commands. If a 
word is spelled wrong, you change 
the spelling directly on the listing as 
opposed to entering the EDIT mode, 
spacing to the mistake, hitting 2C to 
change two letters, and then finally 
changing the letters. 

Ever hit LIST and then watch the 
line you wanted to look at scroll by 
before you could master the SHIFT 
@ key sequence? This utility also 
allows you to list your program 
either forward or backward sixteen 
lines at a time. The program may 
also be scrolled forward one line at a 
time. To me this is a great 
improvement over the standard 
listing functions. Program lines 
may be searched for any string of 
characters to allow for easy changes 
of variable names or occurrences of 
a particular function. Program lines 
may be inserted between legal 
numbers or lines may be deleted 
easily. The program does not 



renumber however. Material within 
program lines may be edited or 
deleted with easy to learn 
commands. 

The program loads into low 
memory and takes up less than 2000 
bytes. Instead of typing LIST to see 
your program, you type CMD and 
now you're in the full-screen edit 
mode. It's that simple. Pressing the 
BREAK key returns you to standard 
BASIC and LIST is still effective if 
you desire. Documentation consists 
of five pages, standard notebook 
size, that contain very clear 
explanations of all the commands. 

If you're like me, you'll find once 
you use a full-screen editor you'll 
never go back to a line editor again. 
This program is a very useful utility 
and beginning programmers would 
find its easy editing a great help 
during the difficult stages of 
computer learning. It's like having a 
word processor for writing 
programs. For ease of operation and 
function, it's a tough package to 
beat. 

Mark E. Renne 



FASTBACK 

Model II 

RACET Computes 

1330 North Glassell, Suite M 

Orange, CA 92667 

(714) 997-4950 

$75.00 

Utility programs are important to 

most computer users, especially the 

BACKUP program. Anyone with 

important information on disk will 

find it necessary to do BACKUPs 

frequently. Everyone agrees with 

that, but many people don't bother 

with them. 

If you ask the question why, it 
comes down to a matter of 
inconvenience. BACKUPs take a 
while to do and if you have to 
backup several disks, it can be 
frustrating sitting there watching 
the computer. 

Anyone who works with a 
computer would agree that any 
method to make BACKUPs more 
convenient deserves to be used. 
FASTBACK falls in that category. 
FASTBACK can backup a disk in 
less than a minute (my tests took 




WARNING! 

Electric Power Pollution. 

Spikes & Lightning 

HAZARDOUS to 

MICROCOMPUTERS!! 

Patented ISOLATORS provide HfS- iso-1 

protection from . . . 

• Computer errors cause by 
power line interference 

• Computer errors due to system 
equipment interaction 

• Spike damage caused by 
copier/elevator/air conditioners lso " 2 

• Lightning caused damage 
MONEY BACK GUARANTEE! Pat #4 ' 259705 

• ISOLATOR (ISO-1) 3 isolated 3-prong sockets; Spike Suppression; 
useful for small offices, laboratories, classrooms $69.95 

• ISOLATOR (ISO-2) 2 isolated 3-prong socket banks; (6 sockets 
total); Spike Suppression; useful for multiple equipment installa- 
tions S69.9S 

• SUPER ISOLATOR (ISO-3) similar to ISO-1 except double isolation & 
oversize Spike Suppression; widely used for severe electrical noise 
situations such as factories or large offices $104.95 

• SUPER ISOLATOR (ISO-1 1) similar to ISO-2 except double isolated 
socket banks & Oversize Spike Suppression; for the larger system in 
severe situations $104.95 

• MAGNUM ISOLATOR (ISO-1 7) 4 Quad Isolated Sockets; Multiple 
Spike Suppressors; For ULTRA-SENSITIVE Systems in extremely 
Harsh environments $181.95 

• CIRCUIT BREAKER, any model (Add-CB) Add $9.00 

• REMOTE SWITCH, any model (Add-RS) Add $16.00 

AT YOUR DEALERS MasterCard, Visa, American Express 

ORDER TOLL FREE 1-800-225-4876 (except AK, HI, PR & Canada) 



ZiV Electronic Specialists, Inc 

171 South Mam Street, Bo* 389. NaSick. Mass. 01760 
(617) 655 1532 
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From Computer Plus to YOU . . . 
PLUS afterPLUS after PLUS 




Elll Y DBfECT HereAtojust a lew of our line offers . . . 



call TOLL FREE for full information. 



COMPUTERS 

Model II 64K 

Model III 4K LEV I 

MODEL IIM6K 

MODEL III 32K 
•MODEL III 32K 

MODEL III 48K 
•MODEL III 48K 

Model III 48K 

2 Disk & RS232 c 
tModelHI48K 

2DlskNoRS232c 

Color Computer 16K 

Color Computer 16K 

w/extended basic 

Color Computer 32K 

w/extended basic 
(Color Computer 32K-64K 

wiextended basic 

Pocket Computer 2 

ModeH61DR128K 
. ModeM62DR128K 
I DM Data Terminal 

We have the lowest possible 
Fully Warranteed Prices AND 
a full complement of Radio Shack 
Software. 



$3100 



1949 



1749 



499 



MODEMS 

Lynx Direct Connect Ml/Mill 
Auto Ans (Dial 
Telephone Interlace II 
RS. ModemlD.C 
R.S. Modem II DC 
PRINTERS 
Daisy Wheel II 

Smith Corona TPI Daisy Wheel 
Epson MX80 
Epson MX80 FT 
Epson MX100 
Line Printer. VII 
Line Printer VIII 
line Printer V 
Microline 80 
Microllne 82A 
Microline 83A 
Microline 84 Parallel 
P. C. Plotter Printer 

'Computer Plui New Equipment. 



3999 



CALL 
CALL 
CALL 



425 
699 
1090 



DISK DRIVES 

R.S. Model III IST-Drive 
Traxx Tandon 40 Track Ml 
Color Computer Drive 1 
Color Computer Drive 
Primary Hard Disk 
ETC. 

Verbalum 5" Double Density 32 
Verbalum 8' Data Lite 49 95 

Ctr-80A recorder 52 

C.C Joysticks 22 

16K RAM NEC 200 N S. chips 15 
64K Ram Chips 75 

Color Computer Flex DOS 99 

R.S. Software 10% oil lis! 

IMtll ft S Drive lanaon Drive 1 



ICo!orCompuler64KN 



I L-ri-1 UUia n 

v3? 



Day Computet PIuj Wairanty 



call TOLL FREE 1 -80Q-S43-81 24 



Pricai subject to change without nolle*. 
Not r*tpon$ible lot typographical anon. 
TW-M It a r »gm#f ed hodtmar* of Tondy Co* p 
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about 56 seconds for a multi-drive 
system and about 2 l / 2 minutes for a 
single drive) on the Model II. It steps 
through the backup process 
effortlessly and quickly. 

As with most of RACET's 
utilities, FASTBACK does more 
than just this function. FASTBACK 
provides the normal backup 
functions available with the 
TRSDOS BACKUP, but it also 
provides the ability to backup disks 
that have bad directories by using 
the ALL option. This forces it to 
copy all tracks on the disk. Some 
would claim that that's a ridiculous 
thing to do, but if it's the only copy 
you've got, you want it. 

The options available for 
FASTBACK are: 

Source disk — you can specify the 
source drive with or without a disk 
ID. 

Destination disk — same as for 
source. 

ABS — backups without worrying 
about data on the destination disk. 

ALL — backups all 77 tracks. 

PROMPT — prompts for disk 



entry before starting the backup. 

NOVER — no verify mode, 
intended for demonstrations only 
since it turns off verification of the 
backup disk. 

FASTBACK is not a bit copier. It 
won't make protected disks 
available to you for copying. It 
simply makes your normal, 
legitimate backups simpler and 
easier. In my book, that's well worth 
it. 

T.R. Dettmarm 

Power Draw 

Model I/IH 

Breeze, Inc. 

11500 Stemmons Exp. 

Dallas, TX 75229 

(214) 484-9428 

$39.95 

Power Draw, by Kim Watt, is a 

powerful graphic screen editor from 

Breeze/QSD, Inc. Having reviewed 

several of Kim Watt's other works, 

we looked forward with anticipation 

to taking an in-depth look at Power 

Draw. We were not disappointed. 

Power Draw is up to Kim's usual 



excellent standards. Supplied on a 
standard 5 1 /," diskette as a/CMD 
file, it works with all known 
operating systems. From DOS 
ready, simply type PDRAW to load 
the program. After loading, a menu 
appears and Power Draw is readied 
by pressing ENTER. 

There are two modes, graphics 
and text, and initially you are in 
graphics mode. A single pixel 
flashes in the upper left corner to 
indicate the cursor position. The 
arrow keys move the cursor, and 
shifting them speeds them up. There 
are three modes in graphics: draw, 
erase and skip. In draw, moving the 
cursor leaves a lit pixel at the 
current cursor position. In erase, 
moving the cursor erases a lit pixel 
at the current cursor position. In 
skip, the cursor may be moved 
without affecting the picture at all. 
Diagonal lines are not drawn using 
two arrow keys simultaneously, but 
a command defines the angle to be 
drawn, and then the I, O, K and L 
keys control the direction of the line. 
A solid or dotted line may be 



VfC-20® 

COMMODORE 





MAZE $12.95 

Trapped inside your computer's 
memory, you must find your way 
through the seemingly endless cor- 
ridors to the outside world. The ex- 
cellent 3-D graphics will stir up any 
claustrophobia you may have. 
Machine code subroutines allow 
you to move as quickly as you can 
push buttons. 

Plus, there are over 6xl0 23 dif- 
ferent mazes that the program can 
generate. There is little chance that 
you (or your heirs) will see the same 
maze twice! 

Send for free catalog. 

Programs require std. VIC-20 or I6K 
TRS-80 color computer. All programs 
on cassette tape. 

Ordering— please add $1.50 postage & 
handling per order. PA resident s please 
add 6% sales tax. |"*|*»| 

Mastercard or Visa Charges 
—Please send account 
number and expiration date. 



TRS-80 
COLOR® 

TANDY CORP. 
TM 



ADVENTURES 
Adventures are interactive fantasy 
games in which you solve a mystery 
by exploring an unknown environ- 
ment with the assistance of your 
computer. You tell the computer 
what to do with plain English com- 
mands like "OPEN THE DOOR", 
and the computer tells you what it 
sees! Average solving time 6 hours. 

Big Bad Wolf $5.95 

NOT for kids only! A full packed 
adventure based on the Three Little 
Pigs fairy tale. Don't let the wolf 
gobble you up! 

Computer Adventure $5.95 

Re-live the "excitement" of getting 
your computer. An adventure with 
a very different flavor. 

Moon Base Alpha $5.95 

You must find a way to destroy the 
meteor that is racing towards your 
base, or else all moon colonies will 
be demolished! 

*** SPECIAL DEAL*** 
Adventure Pack— All 3 for $14.95! 

VICTORY SOFTWARE INC. 

2027- A S. J. Russell Circle 
Elkins Park, PA 19117 

(215) 576-5625 
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IBM — XEROX — TRS-80 — CBM 

HEWLETT-PACKARD — NORTHSTAR 

DEC - HEATH - ZENITH - PMC 

OSBORNE - OSI - INTERTEC . . . 

XXTT2 XJ \ \7T1 




THE CONNECTION 



Connect your IBM Seieetric * , 
IBM Electronic, or Olivetti 
typewriter to any Microcomputer. 



UNDER 

$600 



ESCON Products, Inc. 

12919 Aicosta Blvd. 

San Ramon, Ca. } 94583 

(81X0 227-2148 (415)820-1256 
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defined. 

All commands are single 
keystrokes while in graphics mode. 
For example, pressing "U" 
immediately displays the cursor 
position in the upper right corner 
(like the TRACE function in 
TRSDOS). Pressing "J" displays a 
grid system to aid in centering 
figures on the screen. The entire 
screen may be reversed, with all 
white characters becoming black 
and vice versa. To manipulate the 
drawn figure, you may flip the right 
and left halves, create a top-to- 
bottom mirror image, or a right-to- 
left mirror image. You may also 
move the entire figure in any 
direction — useful when creating 
animated scenes. Single and double- 
wide video is toggled with another 
key, as is text entry. 

To enter text mode, simply hit 
"T"; whereupon, the cursor changes 
shape. Now, text can be entered as 
on a word processor, with the 
exception of no line wrap-around. 
You must manually move the cursor 
to the start of the next line. All 



commands are invoked by pressing 
CLEAR, together with the letter for 
the command. There is an 
additional command, available 
only in text mode, called the special 
key. With this command, you can 
define areas on the screen to either 
clear, fill, reverse or duplicate with a 
certain character. All text can be 
intermixed with graphics; however, 
video reverse works only on 
graphics. 

The really interesting thing about 
Power Draw is the way that it stores 
and recalls the screens that are 
created. There are up to 34 buffers, 
depending on memory size. Each 
buffer holds the contents of one 
screen. After one screen is created, 
you can store it in one of the buffers. 
Return to the workspace buffer, 
move the picture in any direction, 
and store the new picture in the next 
buffer. Continue this process until 
all the buffers are filled, and then 
you can watch all the buffers played 
back in high speed, frame by frame, 
as if watching a movie! You can 
even insert a delay between each 



frame to slow down the apparent 
motion. These buffers can be stored 
on disk or tape, re-loaded into the 
program, or even accessed and 
played back by a utility program 
called PLAY/CMD. You may even 
string several files together to form 
a really long "movie." In addition, 
you may save your screen to disk or 
tape in BASIC string format, 
BASIC data format, EDAS format, 
EDTASM format or DOS load file 
format. 

There are also three separate 
screen printer drivers included in 
the program. Of course, these are 
useful only if one's printer is capable 
of printing graphics characters. 
Power Draw also supports the 
Alpha Products joystick. The 
program performed flawlessly 
during evaluation, with no notable 
bugs detected. This is certainly one 
of the most useful utilities for a TRS- 
80 owner to own. Just think how 
fantastic that title page will look on 
your next masterpiece, or how about 
a 2-minute opening movie? 

Jim Klaproth 



BUY! SELL! TRADE! 

COMPUTER & HAM EQUIPMENT 

r COMPUTER* 



TRADER 

PERMANENT 
BSCRIPTION 

$10.00 

Low Ad Rates — Mailed Monthly 
COMPUTER TRADER® 

Chet Lambert, W4WDR 
1704 Sam Drive • Birmingham, AL 35235 
(205) 854-0271 EEJ 

Please include your Name, Address, Call Sign or Phone Number 



ZORLOF 



THE MAGNIFICENT 

WORD PROCESSING SYSTEM 

For the TRS-80* Model I and III 




• Written in last O0 martin* language. 

• Full ween editing. 

> Single key control of an editing lunclionj for tut ol use. 

• Oywmic display ol word count, line count, and free 
mKnory count. 

> Hold down repeat on all keys. 

• Superscripts and Subscripts. 

• Underlined, bolded. expanded, and condensed type 
styles - combine and intermix within a line. 

• Justifies lines to left margin. rigM margin, both margins, 
and centered. 

• AutomaticaHy juKilte and word-wraps on the screen as 
you type. 

• Srtil! and shift lock for upper case. 

• Search. Replace, and Automatic Search & Replace 

• Automatic tabbing. 

• Odd and even page user-definable headers, footers, and 
page number lines. 

• User-definaW* Itnetpadng. sheet size. top. left, and 
bottom margins. 



' Move block of text. 
' Copy block ol text to disk. 
' Insert block of text from disk. 
1 Examine disk directory on any disk and kill tiles while 
editing. 

■ Full screen editing of EDTASM* and BASIC text files. 

' Automatic renumbering lor EDTASM' and BASIC tiles 

■ Print contents of screen function. ' 

' Print previewing formats text, inserts headers, numbers 
pages, etc. on the screen without printing It on paper. 
' Page by page pausing capability for sheet led printers. 
' Supports both parallel and serial printers. 

• Printer control code access. 

1 Supports proportional spaced justifying on Centronics 

737. ana Line Printer IV. 
> Also supports special capabilities of Epson MX-80. 

Microline. Diablo. Starwriter, and Oume printers. 

• Can be used with any TRSOQS" compatible disk 
operating system 



Koto: Some leatures will only work if your printer has the mechanical capability. 



GUARANTEE 

Many word processing systems claim theirs are the best, but few would dare to 
guarantee them Not us! We are confident that you will find ZORLOF to be the 
most useful word processing system for the money, or you can return it for.a full 
refund, and you may have up to 30 days to decide 



jANUBC ^ $70.00 



ANITEK 

Software Products 

• PO Boxll36 

Melbourne. FL 32935 

(305) 259-9397 



Specify Hod* I tr III when ordering. Add $2.98 
skipping i handling. Fltrlda residents add 5% 
ales In Visa and Matter Card atcepled. 
checks require 3 weeks to clear bank 

'Trademarks ol Tandy Corporation and Apparat Inc 
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MICRO-DESIGN PRESENTS 
THE MDX-4 

PHONE MODEM 

P.O. BOARD & USER MANUAL 

* 300 BAUD 

* DIRECT CONNECT 

* ANSWER AND ORIGINATE MODES 

* SOLDER-MASKED & SILK-SCREENED 

* ON BOARD POWER SUPPLY 

MDX-4 PC BOARD & USERS MANUAI.29.95j, 

USERS MANUAL 8.95 ( 

(Texas Residents Add 5% Tax) 
(Add $3 00 Shipping for Board) 



CALL OR WRITE: 

MICRO DESIGN 

P.O. BOX 748 
MANCHACA.TX 78652 
(512) 282-0225 



%# 



DEALER INQUIRIES INVITED 
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BARCL.AV WHYTE «QOOC I «TES 

THE BEAR WITH TH6 SOFTWARE. TH 

TR8-80 IIOOEL I OR HI 

tai««-eJF>>-ea«= I • I X I . 

VER 2.0 - B«SIC*ilACHINE LANSUflSE WORD PROCESSOR. 

MAILING L.IOX- 

VER 2.1 - DISK BASIC MAILINQ LIST. 

FILESTRUCTURE REQUIRES NEWD08 V 2.0 

SPECIFY MAIL VERS 2.0 IF 008 NOT AVAILABLE 

PRETTY 1_I_X3T. 

F0RHAT8 BASIC PROGRAM LIBTINBS 

DOCUMENTATION INCLUDEB COMPLETE PR08RAH LISTIN8S 

48K MOO I/III DISK. 
EA8ILY MODIFIED FOR OTHER C0NFIHURATI0N8 

S14.93 EACH. WITH DISK. 
S10.93 EACH. DOCUMENTATION ONLY. 

BARCLAY WHYTE ASSOCIATES. DEPT D. 

349 WEST COLUMBIA STREET. 

P.O. BOX 948, NEW WE8TMIN8TER. 

B.C. CANADA. V3L 3C3. 

AOD SI. 00 FOR P08TASE 1 PACKASINa. ADB0U82 
B.C. RESIDENTS ADD PROVINCIAL SOCIAL SERVICE TAX 
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JT2ISC3ll M OU Phelps Gates 

This friendly, easy to use version of Standard Pascal, as 
reviewed in the December 1981 Byte, is now even better! 
New version works onTRS-80 Model I and Model III, under 
TRS-DOS. NewDOS, NewDOS 80, DOSPlus, l.DOS. and 
DoubleDOS. An author package allows you to create your 
own /CMD files without any royalty payments! Upper and 
lower case is fully supported. You can protect memory and 
call machine language programs. New extensions include 
SET, RESET, POINT, RND, and the UCSD Include procedure. 
Utilities are provided to convert to and from ASCII files. 
Pascal 80 now comes in a binder with an 80 page manual by 
George Blank. 

With monitor, editor, and compiler in memory at the same 
time, no other Pascal is easier to learn! One college found 
that it could teach half again as many students on the same 
number of computers after switching from UCSD Pascal to 
Pascal 80. 

Full 14 digit accuracy on all math functions, including log 
and trig functions, makes this a serious Pascal. Disk file 
handling is supported, with a mail list program included as 
a demonstration. 

Upgrades are available for those who bought Ramw 
Pascal 80. Call or write for information. 

Send $101 (includes shipping) to: New Classic Software 

j^— 239 Fox Hill Road, B 

SSS ISM Denville, NI 07834 

Credit card orders: (201) 625-8838 

(PASCAL-80 docs not implement variant records, pointer and window variables, 
ot functions and procedures used as parameters I 



EPROM 
PROGRAM MER 

* Build your own and save 
many $$'S 

* Complete plans, software & 
bareboard 

* More features than most 
costing much more. 

* Programs most popular 5 
volt EPROM's 

Mod III only. Mod I available 
soon. Send SASE for full 
details. Specify mem. size & 
tape/disk (supplied on tape, 
transfers to disk). $39.95 

High Desert Engineering 
1630 So. Downs 
Ridgecrest.Ca. 93555 
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•fr-fr supur-fr-w- 

ISA's DATABASE 

The only DBMS with all 1hese features: 

•k PROVEN in one year of test marketing 

* TOUGH, reliable file structure 

* MENU driven for simplicity and easy use 

* ARITHMETIC with stored calculations 

* FAST set-up and report formating 

* CLEAR user-oriented documentation 

* PRINTS totals & subtotals- mail labels 

* REFORMATS and merges data files 

* MULTI-DISK files: Up to 1 28K records 

* SORTS full disks on up to 40 fields 
■k PRODUCTION input of repetitive data 

* COUPLES to word processor & statistics 

* POSTS transactions to master file 

* SEARCH by strings, ranges, comparisons 

* DATA COMPRESSION: Over twice as 
many labels as the other system 

For TRS-80* Models I. II, & III - 250.00 

CDC 

13715 Vanowen Street 

Van Nuys. CA 91405 

(213) 873-6621 



'T.M. Tandy Corp 
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COCO MAIL LIST! 

Up to 400 naies per disk. ML 

sorts of any field. Plus tany 

tore features! 

COLOR LEDGER! 

A double entry general ledger, 

which nill easily Met the 

needs of any stall business. 

COLOR CALCs 

Now CoCo can assist you in 

spreadsheet preparation. 

All of the above requires 

32K RAM, Disk, and a Printer 

PRICES: 

$50.00 each, any 2 for $85.00, 

or all 3 for only $105.00 

ORDER FROM: 

MDFS Inc. 

S.R. 79, Box 103 

Orland, HE 04472 
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AMRAD 

Amateur Radio Research and 
Development Corporation 



AMRAD is a worldwide club of 
radio and computer amateurs. 
Activities include: 

. Monthly AMRAD Newsletter 

• Amateur Networking and Protocols 

• Computer Bulletin Board System 

• Handicapped Education Exchange 
(HEX) 

• Deaf Telecommunications Research 

• Spread Spectrum Experimentation 

• 2-Meter Voice and Data Repeater 

1524 Springvale Avenue 
McLean, VA USA 22101 
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WHO NEEDS DISKS 

FOR RELIABLE, HIGH QUALITY 
WORD PROCESSING? 

MOST HOME USERS DON'T! 

For long texts or ahort 
what you need is TXMODE 

TXMODE is a new, sophisticated 
machine language program that 
extends ROM edit capability to 
text material and adjusts line 
lengths for any desired output 
format. No limit on manuscript 
size — has been used to revise a 
300-page novel . Commands added 
to BASIC direct mode, plus many 
prompts, make proofreading, tape 
operations and page formatting 
easy. Works with any printer; 
special options with Epson MXBO. 

Node! 3, 14K up model 1 users please inquire! 
«29.95 + *2 P&H. FREE BROCHURE. 

TOPS Programming Enterprises 

QUALITY TAPE OPERATINB SYSTEMS 

AND COMPATIBLE SOFTWARE FOR HONE USE 

7427 S.W. Garden Home, Suite 103 

Portland, Oregon 97223 



#82 



MAGAZINE SAMPLES 
FREE listing of over 150 
magazines offering a 
sample copy - 50<P per 
sample. Send stamped 
self-addressed #10 
envelope to: 

PUBLISHERS 

EXCHANGE 

PO Box 1368, Dept 278 

Plainfield, New Jersey 

07060 
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FAST 
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* In-Memory Data Base program 

for Mod I, 48K disk 

* Sophisticated 3 Machine-Language 

Subroutines: 
1 Sort 1 to 5 Major Fields, carry all Minor Fields 

2. Instring Search on 1 to 2 Fields with as (ew as I 
character up to an entire Field 

3. Instant Deletion of Record. No waiting on 
record move-up 

* Any number of Fields & up to 
255 characters per Field. Limited only 

by available memory. 

* Easy Print-out Formatting. Great for 
Data Storage AND Mailing Lists. 

* Only $14.95 +$2p&h. 

On Formatted S.D. 35-Trk. Disk. 

Check or M.O. 

W.H. Sumrall 

Rt. 1, Box 142 AB1 

Sherman, TX 75090 

(214) 532-6565 
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• * BOILER EFFICIENCY * * 

Complete mass and energy balance - Hue gas com- 
position & more Versions for natural gas - fuel oils, 
coal - wood Determine your boiler's efficiency or see 
how improved control will improve your fuel 

efficiency Specify fuel S35 00 

Version for all fuels . . . . S57 00 

• * HEAT EXCHANGER * • 

Liquid liquid exchanger evaluator. Fully automated 
diagnose problems with existing units. New 
application lor old units. Great for design studies, 
economic analyses. All coefficients and pressure 
drops in seconds Manual included Specify fluids if 
not water. Not appropriate lor liquid metals 
Requires 16K user RAM $495.00 

• * FLUID METERS * • 

A pacKage of programs lor design of common orifice, 
variable area, weir, and pilot meters. Also an algorithm 
for pressure drop in pipe Manual is 
included S259. 00 

Shipping & handling met. Model I III required 

S.M. THORPE CO. 

1229 W. 4000 N. 
PLEASANT UlEW. UTAH 84404 



STOP! 

Don't throw away your used EPSON 
MX-80* ribbon cartridges. 

We'll reload your cartridges, sell you 
the ribbon to reload them or if you don't 
want to bother we'll even buy your used 
cartridges and sell you brand new ones at 
reasonable prices. 

ALSO AVAILABLE A reinker that will 
do the job for less than the retail price of a 
new cartridge. 

We'll also tell you about a deviceto feed 
single sheets into most any pin feed 
printer that costs less than $4 00 

All sorts of new ideas in the works 

Write today for free information 



Pete Skeberdis 

P.O. Box 27 
Fremont, Michigan 49412 



"EPSON &MX-80are trademarks of EPSON, Inc. 
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NEW! 



From RONTEL 



-SPOOKS— Rack 
up points following 
trails and eating dots 
— but watch out for 
the spooks! 
When you get tough 
—SPOOKS— will get 
tougher. . sound 



—SPOOKS— (cassette, postage paid). . $16.95 




NEW!, 



SSBUG 
From RONTEL Single Stepper 

For serious machine code debugging. SSBUG 
displays all registers and more within a small 
moveable area of screen. This utility examines and 
alters memory, breakpoints, and single-steps using 
a user-selectable key, suppresses following calls, 
and much, much more. SSBUG is human engi- 
neered so as not to interfere, with regular program 
execution . • easy to operate • uses about 2k 
SSBUG (cassette, postage paid) $19.95 

Both Programs for TRS-80 MOD. I and III 

Send Check or Money Order to: 



EEEHM1 



rasnraa 



903 Shady Drive Dept. U Vienna, VA 22180 

VA RES ADD 4°o SALES TAX 
TRS 80 IS A REG TRADEMARK OF TANDY CORP 



VECTOR/FIX 

MODEL I/III 

• Puts machine language programs on 
cassette to disk and adds a patch to 
make them run! 

•Ideal for programs which wipe out 
DOS such as Deathmaze, Eliza, 
Galaxy Invasion, etc.* 

•Scan in uppercase & lowercase ASCII, 
or HEX — send to printer. 

•High speed string search. 

• Even patches programs saved to disk 
by other load module programs (above 
81FFH). 

• Either version will dump the ROM & 
DOS area to printer in ASCII or HEX. 
Min. Req. 32K, 1 disk drive, TRS-80** 
Model I Disk $19.95 
Model III Disk $23.95 

Includes Shipping and Handling 
Send Check or Monev Order To: 

MICRO-MEDIA 

P.O. Box 538, Linden, MI 48451 

* Not designed to load 'protected' tapes. 
**TRS-80 is a trademark of Tandy Corporation 
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MODEL III TRS-80® 
Software on Disks! 

At last! All Model III. 
Put it in — Watch it run. 

GUARANTEED — SEND FOR 

FREE CATALOG. INCLUDE $9.95 

FOR DISK VERSION AND 

A FREE PROGRAM. 



STAR*WARE 



TM 



Rt. 5, Box 277-C 
Benbrook, TX 76126 



#89 



#90 



#91 



Color Computer 
Secrets Revealed 

Learn all about the secret inner workings of your 
Color Computer This new book tells you how to: 

■ Make back-up copies of machine language 
programs. 

■ Merge two or more BASIC programs 

■ Increase your memory for free. 

■ Upgrade your Color Computer to 16K, 32K or 
64K RAM & add Extended BASIC 

■ Run your computer at twice normal speed 

■ Use a myrid of PEEK and POKE statements 

and much, much more. 

All this in an easy-to-read and profusely 
illustrated book A must for every Color 
Computer owner — just $9.95 + $2 shipping. 
Order direct from: 

DISK 'N DATA 

5450 Rugby Street 
Burnaby. B.C. Canada V5E 2N1 

Write for our complete catalogue of 
Color Computer hardware and software 
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Save Grief & Aggravation 

—Know Before You Buy— 

READ 

"Consumer Protection for 
the Microcomputer Owner" 

COVERS: 

1. Preliminary Considerations before Buying 
2 Legal Differences between Mail Order and 

Local Store 
- 3. Pitfalls and Protection of Paying by Cash, 

Check, Credit Card, etc. 
4 What a Warranty Really Is 
5. How to Complain Effectively 
6 How to Legally Reject and Revoke 

Acceptance of Goods 
7. Miscellaneous Hints and Suggestions 

ONLY $15 Pott Paid (COD $3 Extra) 

Send Check or Money Order to 

L. J. KUTTEN, ATTORNEY 

201 South Central 

P.O. Box 16185 

St. Louis (Clayton), MO 63105 

314-721-6644 

Mo. Rtsldanta odd 4.825% >«!•* tax 

CompuServe ID #70655,376 Source ID# TCK092 



PAPER 



FINEST WHITE BOND 7E95 

Blank, I -part. 9'/i x 11. 2200 sheets I V 
Letterhead quality paper (20 lb.- 25% rag) 
Special strip-offs produce smooth 8V2 x 11 sheet 

WHITE 18 LB. BOND O095 

Blank, 1 -part, 9'/i x 1 1 , 3000 sheets L O 
Perforated both sides, snaps out to B'/z x II 

GREEN BAR 8 1 / 2 x 11 OQ95 

1-part, 3200 sheets, 15 lb. stock LO 

CARBONLESS 9 1 / 2 x 11 

2-part, 1600 sheets, 15 lb. stock ^^95 
Perforated both sides, snaps out to 8'/z x 11 " vl 

Send check with order. Add S6.00 per box for handling 
and shipping (UPS) within continental US. Calif, 
residents add S'h% sales tax. Satisfaction guaranteed. 

Call or write for free catalog and samples. 

BOB'S CHARTS 405 E. THIRD, SUITE 206B 
Computer Paper Dept LONG BEACH, CA 90802 
(213) 435-3492 
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New Products 



Portable Model III 

The Adcock & Johnson Model 
3000 is a conversion which 
transforms the Radio Shack TRS-80 
Model III from a desktop into a fully 
portable computer. The Model 3000 
is the first portable computer to be 
fully compatible with the broad 
range of software and hardware 
already in use and under intense 
development for Radio Shack 
computers. 

Offering a rugged, brushed 
aluminum case, dual 184K disk 
drives and optional internal direct 
connect modem, the Model 3000 
incorporates a large nine-inch, 
green phosphor CRT, with a anti- 
glare finish for easy viewing. The 
unit weighs only 28 pounds. 

The Model 3000 is available either 
as a conversion for a Model III at 
$795 or as a complete machine for 
$2895. Internal 10 Meg hard disk, 
modem and upgrades for Model III 
owners are available at additional 
cost. For more information, contact 
Adcock & Johnson, Drawer 8778, 
Fort Worth, TX 76112, (817) 429- 
5131. 

#200 

Communications Program 

Term/Host is a comprehensive 
self-contained communications 
program designed for Model I or II 
with 48K of memory, disk or tape. 
The same version runs on all 
configurations. The program 
handles all types of files in binary or 
ASCII modes. Term/Host supports 
complete remote operation of the 
user's system. As a host, you may 
run machine language or BASIC 
programs, or down/up load files 
from any remote terminal or system. 
The program is menu driven, 
includes a 27-page users guide, and 
is priced at $34.95. 

Term/Host Bulletin Board uses 
Term/Host for a driver with an 
108 80-U.S. Journal 
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Weighing only 28 pounds, the portable Model 3000 from Adcock & Johnson is fully 
compatible with the broad range of software and hardware. 



appendage. It includes a series of 
BASIC support programs, and data 
files, supports about 200 users; has 
general, club and confidential 
password protection; complete 
up/down loading; auto UART 
configuration. One disk drive with 
48K is the minimum requirement. 
The appendage and support 
programs are priced at $39.95. 

Both programs are distributed by 
Freedom Financial Enterprises of 
Washington, Inc., 3601 Carriage 
Dr., Raleigh, NC 27612, (919) 787- 
8082. 
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Computer Consumer 
Protection 

A 35-page booklet Consumer 
Protection for the Microcomputer 



Owner covers the steps to consider 
before purchasing a computer. 
Information about the general Law 
of Sales is given to advise buyers of 
the legal issues that can arise if he is 
not careful, such as: When is a sale 
valid? Are advertised prices 
binding? What can be done about 
partial delivery? What and when 
must the seller deliver? Hints on 
how to legally reject and revoke a 
prior acceptance of a product are 
included. There are suggestions on 
how to complain effectively and 
hints every computer purchaser will 
find useful. The booklet is available 
by mail for $15.00 from L. J. Kutten, 
Attorney at Law, 201 S. Central 
Avenue, P.O. Box 16185, St. Louis, 
MO 63105. 
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New products 



C.C. Audio Spectrum 
Analyzer™ 

Radio Shack is now providing 
audiophiles and high fidelity 
enthusiasts with a new way to use 
the TRS-8(X R Color Computer as a 
test instrument or as a colorful aid to 
their audio systems. Audio 
Spectrum Analyzer™ (26-3156), 
available for $19.95 at Radio Shack 
stores, provides a colorful, graphic 
display (of the power-frequency 
distribution) of energy in sound 
presented to the computer's cassette 
port input. Color bargraphs show 
the relative power distribution over 
a nine-octave audio range. Both 
fast-response (peak measurement) 
and slow-response (RMS measure- 
ment) modes are available. A cable 
is required (e.g., Radio Shack 26- 
1027, not included) for connection of 
the audio source to the Color 
Computer cassette input port. 
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Portable Data Terminal 

Radio Shack is introducing a new 
portable printing data terminal. 
The TRS-80 PT-210 Portable Data 
Terminal (76-1001) is available for 
$995. The terminal includes a full 
typewriter keyboard, a thermal 



printer and a 110/300 baud (Bell 
103A compatible) acoustic 
telephone coupler. 

An optional add-on RS232C 
Interface Module (76-1002), 
available for $69.95, can be user 
(plug-in) installed. This facilitates 
use of the terminal as a local (to a 
computer or selected peripheral) 
"front end" dumb terminal and/or 
printer. RS232C is also a convenient 
way to connect the terminal to a 
direct connect modem. 

The PT-210 features a full-sized 
ASCII keyboard, generating a total 
of 99 codes, and offers a switch- 
selectable digital keypad. 110 baud 
or 300 baud operation may be switch 
selected, as may half-duplex or full- 
duplex operation and odd- 
parity / even-parity / no-parity 
modes. The PT-210 is housed in 
silver-grey case measuring 15V 2 x 
14y 2 x 5 inches, and weighing 15 
pounds with paper installed. It is 
FCC registered, and UL-listed for 
120 VAC 60 Hertz operation. The 
line cord is detachable for easy 
portability. A light duty black vinyl 
dust cover and one roll of paper are 
included. A travel case (76-1010) is 
available separately for $24.95. 
#204 



Speed-up Peripheral 

The Sprinter™ is a speed-up 
peripheral that will run your system 
two to three times faster, plugs 
inside your keyboard, and lets you 
add a parallel printer. You select 
from 16 different (OUT) software 
commands that control execution 
speed. The Sprinter automatically 
slows down for disc and I/O 
operations, and compensates for 
slow ROMs. For high speed 
performance, a Z80B is included. 

Designed to plug into the Z80B 
socket inside TRS-80 Models I/III 
and PMC-80/81, the Sprinter is the 
first speed-up that doesn't require 
technical know-how to install and 
remove. The Sprinter can be 
purchased for $99.50. Add $24.50 for 
a parallel printer port and $19.50 for 
a printer cable. The Sprinter is 
available from Holmes Engineer- 
ing, Dept. #20, 3555 South 3200 
West, Salt Lake City, Utah 84119, 
(801) 967-2324. 

#205 

TRS-80 Graphics Book 

TRS-80 Graphics (62-2073), by J. 
D. Robertson and John P. Grillo, is 
available for $7.95 at Radio Shack 
stores, Computer Centers and 
participating dealers. The book 
provides sample programs and 
illustrations for three general meth- 
ods of generating computer gra- 
phics — character graphics, pixel 
graphics and line printer graphics. 
#206 
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Radio Shack's TRS-80 PT-210 Portable Data Terminal consists of a keyboard, thermal 
printer and 1 10/300 baud acoustic telephone coupler. 



Disk File Index 

"Maindex," and its sort program 
"Alphadex," is an easy to use, yet 
thorough program that will aid you 
in the indexing of your files on disk. 
With Maindex you will know the 
disk containing any file within 
seconds. Files can be located and 
reviewed by name, partial name, 
user defined categories, or by 
scanning the file descriptions. 

Maindex for the TRS-80 Model I or 
III, requires 48K, at least one disk 
drive, and NEWDOS/80. Distribu- 
ted on cassette with over 14 pages of 
easy to read documentation, 
Maindex does all this for $34.95. 
More information is available from 
E-Z Software, P.O. Box 591, Novato, 
CA 94948. 
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ABS Suppliers 

3352 Chelsea Circle 

Ann Arbor, Ml 48104 

(313)971-1404 



B17 TAPE OPERATING SYSTEM will let you 

• Save & Load programs 6X faster than Model-1 

• Save & Load Data Arrays over 800X faster. 

• Backup standard System tapes that load-n-go 

• Certify cassette tapes for B1 7 use. 

$1 4.95 Specify Model 1/3 16K/32K/48K RAM. 
Inexpensive Upgrades available. 3rd year of sales. 

B17DISK/BAS isa Disk version. Letsyousaveany 
disk file to cassette at 3000 baud. Inexpensive way 
to backup your files. Works with any DOS. Includes 
tape certifier. Requires 32K RAM-up. 
$14.95 Specify Model 1/3. 

WORDSMITH Word-processing program in BASIC. 
A 'Trainer" for more complex W/P programs. Easy- 
to-use. Specify Tape/Disk version. Tape version 
requires B1 7 Tape Operating System (above). Disk 
version requires 32 K RAM-up. Uses MX-80 Printer. 
$14.95 Specify Model 1/3. 

Add $1.50 postage/handling per item. 
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DJD YOU BUY YOUR COMPUTER TO HfcLP 
YOU MAKE OR SAVE MONEY? 

13 I SPLAN 

Is far the person wanting to start 
a small business. Or for the 
person who is operating a small 
business. You enter all the 
financial information pertaining 
to your business plans and BIBF'LAN 
will produce PROFIT «- LOSS 
STATEMENTS, CASH FLOW ANALYSIS and 
BALANCE SHEETS. Each projected 
for up to 5 years. BISPLAN will 
also indicate financing needs. 
Printed output suitable for loan 
applications, business proposals, 
etc. "What if" ideas tested. 
Entries easily changed. Ideal for 
small business proposals as well 
as for projecting existing 
business expectations. 
INTERACTIVE. COMPREHENSIVE. 

NEW - Store data on tape or disk. 

On cassette: Specify Mod I or III, 1 6K 
32K. 48K — $59 95 

Single Source Solution 
2699 Clayton Road 
Concord, CA 94519 
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MICRO 

MOONLIGHTER 

NEWSLETTER 



The ONLY publication devoted 
exclusively to„helping you create, 
build, and maintain a home-based 
business using your micro-system. 
SUBSCRIBE NOW to what may be 
the most important publication in 
YOUR FUTURE ! 
1 Year (12 issues) only $25 U.S., 
$29 Canada, $35 World Wide 

■ J. Norman Goode, Publisher 

Micro Moonlighter 

Newsletter 

2115-J Bernard Avenue 
Nashville, TN 37212 

Visa and Mastercard welcome. Send 
account number and expiration date. 
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DISKETTES 
CASSETTES 



Error-Free 5V4-inch Diskettes (MD- 
5) single-sided, soft sector, single or 
double density, reinforced hub. 

Item Qty 10 Qty 50 



MD-5 



$25.00 



$110.00 



C-10 
C-20 
C-60 
C-90 



$ 7.50 

9.00 

11.50 

15.00 



$ 32.50 
39.00 
50.00 
70.00 



UPS SHIPPING INCLUDED 

in Continental USA 

CA Customers add taxes 



MICROSETTE 

475 Ellis St., Mt. View, 
CA 94043 (415)968-1604 
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FRICTION FEED FOR YOUR EPSON 

MX-70 "- MX-80 





9 Trademarks of EPSON I 



Converts your printer lor friction 
feed of SINGLE SHEETS or ROLL 
PAPER. 

SIMPLE Installation (all you need 
is a screwdriver, no soldering). 

Tractor feed remains 
undisturbed: 



S 39 B 



Only 

(add 11-50 lot posuga) 




SATISFACTION GUARANTEED OR YOUR » 



MICRO-GRIP, Ltd. 
P O. Box 4278 

VISA & Master Card Accepted HoxKm AFB CA 92 409 
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REAL ESTATE SOFTWARE 

lot APPLE- rHS-80 k CPM SYSTEMS 

. PROPERTY MANAGEMENT SYSTEM: S37S 

• Tenant History ■ Operating Stmt. 

• Late Ren! Report • Building Reports 

• Vacancy Pap&r! • Utilities Report 

• Income Bsport • Tax Expense Report 

• Auto Late Charge • frtnts Checks 

• Riturnad Chocks • Prints Receipts 

• PROPERTY USTiHGS/COMPARABLES: $325 

SCREEN BY — »— • Max/Min Price 

• Units/Zone/City 



• 22 Items/listing •■• 
■ 1000 Listing/Disk 
■..Listing Memo field 



Max Price/lncom 
Max PriCe/Sq'Foi 
Min Cashflow '■ 



■REAL ESTATE ANALYSIS MODULES: $50/Modulo 



Hums Purchase 
lncetr>e Pcop Analysis 
Propsriy Sales 
Construction Cost/Protl 



Tax Deferred Exchange 
APR Loan Analysis 



elation'/ ACRS "Analysis' 



WORD PROCESSOR - MAGIC W AND: $265 
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Eight good reasons 
for using a Mod HI: 

1. iHtntbt2" m| General Ledger 

Accounting System 

2. Accounts Receivable 

3. Accounts Payable 

4. Full-Service Payroll 

5. Order Entry & Invoicing 

-with Inventory Interface ' 
-with Accts. Rec. Interface 

6. Fixed Assets Accounting 

7. Job Cost Accounting 

8. Cost Estimating Systems 

-for Manufacturing 
-for Food Service 

At selected Dealers or 
from the publisher 

Nrjmitl)? Programs 

44 Third Ave., Ste. F 
Chula Vista, CA 92010 
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COLOR COMPUTER 
COLORFORTH 

FORTH is a high level computer 
language like BASIC or PASCAL. 
COLORFORTH, a version of 
figFORTH, is available NOW for 
the TRS-80C com pTTT e r . 
COLORFORTH execution time is 
as much as 10 times faster 
than BASIC. COL"ORFORTH 
requires a minimum of 16K ram, 
but does not require either 
Extended Basic or disk system. 
When you purchase COLORFORTH, 
you receive both cassette and 
disk versions, the standard 
figEDITOR, and an extensive 
instruction manual. 
ALL FOR OMLY $49.95 




Affnaadilla lat'l Software 
P.O. BOX 7661 PH. (5 
AUSTIN, TEXAS 78712 



P.O. BOX 7661 PH. (512)45 9-7325 
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COLOR SOFTWARE 



• BERSERK. *30.95 

« COLOR TREK . - . *34 , 95 
» COLORTERM . , „ . *40 . 93 
'MOON LANDER..* 19. 93 



*30, 



gac 



»PAC ATTACK. 
•TELEWRITER. •.•61. 95 
IN CANADIAN DOLLARS 
WRITE FOR CATALOGUE 

COLOR PRODUCTS 
UNALIKE 
#211 99© EAST 8TH 
VANCOUVER B.C. 

(CANADA) V5T-IT8 
PH.C604) 873-2372 
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TRS-80 DISK and TAPE USERS!!! 

Protect your investment in disks and tapes! 

END loading problems. One TOOL does it ALL! 

Tape Reproduction System 

Tape or Disk Utility for Model I or III 

• Read TAPE and/or DISK 

• Write TAPE and/or DISK 

• Verify TAPE written will load 

• ANY TRS-80 protocol TAPE 

• Identifies BASIC, SYSTEM, EDTASM 

• Change program name as desired 

• Select tape speed H/L (Mod III) 

• Select tape port 0/1 (Mod I) 

• OFFSET load addresses 

• UNOFFSET load addresses if offset 

• Displays operational STATUS plus 

Diskette directory (0-3) 
. Load Map (start-end addresses) 
NAME, LENGTH, FORMAT of data 
START, END, EXECUTE addresses 

• Automatic protocol conversion 

• SINGLE disk drive copy (Mod I) 

• Archives on TAPE for DISK or TAPE 

• Run TAPE programs from DISK 

• 14 Menu-driven features in all! 

• DISK features require TRSDUM 

TRSTUM-16K tape systems ONLY $16 95 

TRSDUM-1 drive TRSDOS systems ONLY $17.95 

Specify Model I or III - add $1 00 postage and handling 
Send check, money order or SASE to: 

CRB Microtools 

"Software H Tools for the 80's" 

14835 N First Avenue 

Phoenix, AZ 85023 

TRS-80 & TRSDOS - trademarks of Tandy Corp 
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TRS-80 MODEL I™ 

GOLDPLUG-80 

Eliminate disk re-boots and data 
loss due to poor contact problems 
at card edge connectors. The 
GOLD PLUG - 80 solders to the 
board card edge. Use your ex- 
isting cables. 
CPU/keyboard to 

expansion interface $18.95 

Expansion interface to disk, prin- 
ter, RS232, screen printer 

(specify) $9.95 ea 

Full set, six connectors. . . $54.95 



EAP COMPANY 

P.O. Box 14, Keller, TX 76248 

(817)498-4242 

*TRS-80 is a trademark of 

Tandy Corp. 



IEEE-488 TO TRS-80* INTERFACE 
Everything needed to add powerful 
BASIC GPIB-488 controller capability 
to TRS-80 Model 1 or 3, Level 2 or 
DOS with a minimum of 16K. 

488-80B jj 

For Model 1 I 

Operation ■ 



488-80C 
- -- For Model 3 

Model 488-80B or 488-80C Price: $375. 

+ shipping, insurance & tax 
WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING 
LABORATORIES 

11 Neil Drive • Old Bethpage, NY 11804 
Telephone: (516) 694-3370 

'Trademark of Tandy Corp. 
There is no affiliation between Scientific 
Engineering Laboratories and Tandy Corp. or 
Radio Shack. 
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• IN STOCK NOW!! call for special • 
p prices on LNWSOs, NEC printers, a 

• RGB COLOR MONITORS, AND TANDON • 
P DISK SYSTEMS, □ 


p ***** NEW LNW SOFTWARE! ***** a 


° EXCELLONll ° 


U P 

• 7180 Woodrow Wilson Dr • 
p Los Angeles, CA 90068 a 


p (213) 650-5754 - (7W) 973-1939 a 
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Architectural 

Engineering 

Library 

50 programs in a total 
of 10 categories including: 
Heat Loss/SLR 
Timber Beams, Steel 
Steel Beams, Trusses (4 types) 
Concrete: Beams, Walls, 
Slabs and Footings. 

TOTAL COST: $225 (U.S.) 

Individual Categories: $35 

Disk, ESF or Cassette 

ERIC CLOUGH 

Box 52, Winlaw, B.C. 

Canada VOG 2J0 

or 

OHU-GLAS — Box 1664 

Sausalito, CA 94966 



LDOS 

$99.95 



TM 



(Specify Model I or III) 
25% Off List on Software from: 

• GALACTIC SOFTWARE 

• ADVENTURE INTL. 

• AUTOMATED SIMULATIONS 

• AND, 20% OFF 
ASPEN SOFTWARE 

Send check or money order to: 

SoftHart Enterprises 

1105 S. Beloit Ave. 
Forest Park, I L 601 30 

For catalogue inforrtiation, or VISA, 
MasterCard orders, phone (312) 771-2857. 
Add $2" shipping and handling; 
Illinois residents add 6% tax. 
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TRS-80 MODEL I/III 
PROGRAMS 

for Cassette and Disc 

EDUCA TIONAL 
BUSINESS 
HOME MANAGER 
UTILITIES 

INQUIRIES WELCOMED 

J/C ENTERPRISES 

BOX 44.1186 
MIAMI, FL 33144 

'trademark Tandy Corp. 
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Dental Computer 
Newsletter 

E. J. Neiburger, D.D.S., Editor 
1000 North Avenue 
Waukegan, IL 60085 

The D.C.IM. is an international 
group of dentists, physicians and 
office management people who 
have interests in office computers. 
Though the emphasis is on micro- 
computers, many members use 
minis. We cater to all makes and 
brand names. 

Annual membership dues 
$15.00. Membership runs from 
January to January. If you join 
mid-year, we will supply you with 
the year's back issues. 
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LETTER 
QUALITY 



©RS232C, Serial Interface 

® Parallel Interface 
• Microprocessor Controlled 



MICRO TECHNOLOGY 

7817 Ivanhoe Ave 
La Jolla, CA 92037 

(714)457-2149 
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This bulletin board space is available 
free to individuals with single or unusual 
items for sale or trade, and for other 
announcements of interest to the general 
readership of this magazine. 80-U.S. 
Journal reserves the right to reject any 
commercial advertising in this section 
and suggests using our display 
advertising for that purpose. 

These notices are free of charge and 
will be printed one time only on a space 
available basis. Notices will be accepted 
from individuals or bona fide computer 
user clubs only. All announcements must 
be typed, contain 75 words or less and in- 
clude complete name and address. 

Michael B. Shane, Chairman of Leading 
Edge Products, has announced that one 
cent from the sale of every Elephant 
diskette sold throughout the world will be 
contributed to the Jimmy Fund. The Jimmy 
Fund has long been a source of aid and 
comfort to parents of children unfortunate 
enough to develop cancer. The Fund's 
contributions to the Sidney Farber Cancer 
Institute for the past 35 years, has meant 
life to many of these children, and could 
someday be a major force in funding the 
research leading to a cure of manyformsof 
cancer. They expect sales to continue 
substantial growth, benefitting the fund 
and the Institute. 

Rimes Computer Products announces its 
Grand Opening. Major brands of business, 
home, personal ahd entertainment soft- 
ware will be sold at discount prices. Many 
popular models of computers will be 
supported, beginning with Radio Shack's 
TRS-80 Models I and III. A free catalog may 
be obtained by writing to them at 262 
Tracey, Grand Island, NY 14072. 

FOR SALE: BYTE — Jan. 79, Apr. 79 to 
Apr. 81, Jul. to Oct. 81, Dec. 81, Jan. 82, 
Apr. to Jun. 82. $1.50 ($3.50). Creative 
Computing — Apr. 79 to Jul. 79, Sep. 79 to 
Oct. 81, Dec. 81 to Aug. 82. $1 .50 ($3.00). 
Prices in parenthesis include postage. 
Excess postage will be refunded on 
multiple orders. Call Douglas Stewart, 15 
Mountain View Road, Cape Elizabeth, ME 
04107, (207) 767-2351. 

The Southern Maine TRS-80 Group, 15 

Mountain View Road, Cape Elizabeth, ME 
04107, meets the first Tuesday of every 
month at 6:30 p.m. in Classroom 2, Maine 
Medical Center, Bramhill Street, Portland, 
ME 04102. Dues: $10 per year/$1 per 
month. Newletter: Byte Babble. 

FOR SALE: (1) Unique, original computer- 
ized football game. 16K program lets you 
play against computer or a friend. 
Situations include fumble, safety, intercep- 
tions, on-side kicks, graphics, and more. (2) 
Thoroughbred horse-racing. Excellent 
action graphics, timer, daily-double 
wagering. $10 per game or both for $18 
ppd. TRS-80 Model l/lll cassette or disk, 
16K required. For order or comprehensive 
free information, write: Douglas Hayman, 
20 Redwood Drive, Great River, NY 1 1 739, 
(516)277-9850. 
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A GALAXY of featuces /nakes the LN.W8 
remarkable, computer. As you explore the 
LNW80, you will find the most complete, 
powerful, ready to run,- feature-packed per- 
sonal and busirfess computer ever made into 
one compact* solid unit * 







QUALITY CONSTRUCTION - Instrumenta- 
tion quality construction sets LNW80 com- 
* puters apart frfem all the rest. Integrated into 
the sleek solid steel cage of the LNW80 is a 
professional 74-key expanded keyboard that 
includes a twelve key rjumeric keypad. 

•#HIG>4 RESOLUTION GRAPHICS* COLOR 

The Stunning 480 X 192 resolution gives you 
• total display control - in color or black and 
white. The choice of display formats is yours; 
80,64, 40 and 32 columns by 24 or 1 6 lines in - 
any combination of eight colors. 

FORMANCE- Lift-off with.a4MHz Z80A 
PU for twice the performance. The LNW80 
outperforms all computers in its class. 



* m * 



MODEL I COMPATIBILITY- The LNW80 is 

fully hardware and software compatible with 
the Model I. Select from a universe,of hardware 
accessories and software - from VisiCalc* to 
space games, your LNW80 will launch you 
into a new world of computing. 




FULLY LOAQED - A full payload includes fcn 
on-board single and double density disk 
controller for 5 W c ,^nd 8" single or double 
sided disk drives, RS23BC communications 
port, cassette and parallel printer interfaces 
are standard features and ready to go. All 
memory is fully installed - 48K RAM. 16K 
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price won't send you into 




Microsoft BASIC. 



,.2620 WALNi.T 1 tin, CA. £>6> 
(7141641-9850 (714/ 544-5' 
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PLEASE ANSWER THESE 5 QUESTIONS 



■ 



1. Do you have information that must be kept organized and 

■ 

i 



. . . * 



* * m 
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5. 



2. Do you ever need to perform statistical analyses? ...... 

3. Would you like to have a tool that will allow you greater flexibility 
in managing your own or your company's money? 

t. Could you use a mail list program that will be easy to use, 
maintain an unlimited number of names, allow you great sorting 

flexibility, and even interact with a word processor? 

Do you own or have access to a TRS-80 microcomputer? 



YES NO 

D □ 

cr n 



□ 





If you answered "yes" to any of these questions, we can be of assistance to 
you. Our Maxi Series of applications programs are designed to give you maximum 
versatility with a minimum of hassle. These programs were created for business use, 
but you'li find yourself using them for personal applications as well. 

Thorough support — Of course, each program comes with in-depth, user- 
oriented documentation, and is menu-driven to make it easy to use. When necessary, 
the Maxi programs are compatible with each other, and, whenever pertinent, are 
interactive with the major word processing and spreadsheet programs published by 
other manufacturers. A/so. we maintain a telephone support line to provide you with 
any assistance you might require. 
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by Dale Kubler 



Maxi Manager is a remarkable data base manager. Its fast 
machine language sort complements its large data storage capacity, 
The sophistication of its data entry, management, and printing capa 
cities makes Maxt Manager a versatile tool for many applications 

The program now includes Max; Utility, which allows you to 
rescue files on diskettes that have been damaged by excessive wear or 
misuse and lets you expand, add. or delete fields from an existing data 
base Let the unmatched capabilities of Maxt Manager handle your 
data management! 

Model I * Mooel lit. Minimum 1 disk drivm required 012 0196 $149.99 
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by Dale Kubler 
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(Check Register Accounting System) 

Maxi Cras <s a system that will computerize check writing, 

recording and analysis for business and personal finance. The system 

features 223 income and expense accounts, each of which will handle 

an unlimited number of transactions. Extensive register and report 

printing capabilities make Maxi CRAS an indispensible tool tor 

managing money effectively. 

Model I * Model III. Minimum 2 drives required 012-0145 $99.05 






by Dale Kubler 

Maxt Mail is a powerful mail list management system thai 
t. is easy to use, 

2. Has virtually unlimited storage capacity. 

3. Interfaces with the major word processors to generate form 
letters and other text. 

4. Prints mailing labels up to tour across in any format desired 

5. Has vtrtuaity unlimited coding capabilities with thirteen fields of 
information for each record 

Maxi Mail is the most sophisticated user-oriented mail list 
program available. 

TWS-ao Modmt III only. 2 disk drives required 
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by David Walonick 



012-0148 $99.95 



Maxi Stat is the most useful statistical analysis package en the 
market today It was developed to allow maximum flexibility in 
designing customized analysis. Maxi Stat handles the three mam 
components of statistical analysis: 

t. Complete menu-driven codebook creation and editing 

2. Menu-assisted data entry. 

3, User-created control files to describe the statistical analyses to 
u m > ?S P f rfofmed and Panted out on the variables of your choice 
Model I A Model III. Minimum 2 drives required . . 012-0153 $199 95 
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Buy Our 16K Color Computer— We'll Give 
You the Joysticks at No Extra Charge! 



What a deal! Our $399.95 standard TRS-80 Color 
Computer now comes with 16K memory built in. 
And if you act right away it also comes with a pair 
of joysticks worth $24.95! Just attach to your TV 
and pop in a handy Program Pak/ V Then take hold 

■• of the joysticks to chart. your course through the 
galaxies, battling enemy aliens in thrilling games 
like Project Nebula or Galactic Attack. Or get more 
down-to-earth excitement with any of our dozens 
of other color action games. 



\\\ 



But that's not all. Your Color Computer can also 
take you on in chess, Roman checkers and back- 
gammon. Feel like expressing yourself? Micro 
Painter or Art Gallery will turn your joysticks into 
"electronic paintbrushes" so that you can create 
beautiful color pictures and designs on your TV 
screen. There are Program Paks to teach you 
bridge or touch typing, help your kids with math, 
reading and music, keep computerized invento- 
ries of household items, and plan your budgets. 
Isn't this the perfect time to treat someone in your 
family to the fabulous TRS-80 Color Computer? 
Then hurry — this terrific joystick offer expires 
September 26, 1982! 
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The biggest name in little computers** 

A DIVISION OF TANDY CORPORATION 
Retail prices may vary at indtvidual stores and dealers. 
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"NEVER 



forgets: 



MORE THAN JUST ANOTHER PRETTY FACE 



Says who? Says ANSI. 

Specifically, subcommittee X3B8 of the American 
National Standards Institute (ANSI) says so. The fact 
is all Elephant™ floppies meet or exceed the specs 
required to meet or exceed all their standards. 

But just who is "subcommittee X3B8" to issue such 
pronouncements? 

They're a group of people representing a large, 
well-balanced cross section of disciplines— from 
academia, government agencies, and the computer 
industry. People from places like IBM, Hewlett-Packard, 
3M, Lawrence Livermore Labs, The U.S. Department 
of Defense, Honeywell and The Association of Com- 
puter Programmers and Analysts. In short, it's a bunch 
of high-caliber nitpickers whose mission, it seems, in 
order to make better disks for consumers, is also to 



make life miserable for everyone in the disk-making 
business. 

How? By gathering together periodically (often, 
one suspects, under the full moon) to concoct more 
and more rules to increase the quality of flexible 
disks. Their most recent rule book runs over 20 single- 
spaced pages— listing, and insisting upon— hundreds 
upon hundreds of standards a disk must meet in 
order to be blessed by ANSI. (And thereby be taken 
seriously by people who take disks seriously.) 

In fact, if you d like a copy of this formidable docu- 
ment, for free, just let us know and well send you 
one. Because once you know what it takes to make 
an Elephant for ANSI . . . 

We think you'll want us to make some Elephants 
for you. 



ELEPHANT. HEAVY DUTY DISKS. 

For a free poster-size portrait of our powerful pachyderm, please write us. 

Distributed Exclusively by Leading Edge Products, Inc., 225 Turnpike Street, Canton, Massachusetts 02021 

Call: toll-free 1-800-343-6833; or in Massachusetts call collect (617) 828-8150. Telex 951-624. 
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